Даны действительные числа x,y,z Если все числа положительны, увеличить их значения в 2 раза;во всех отальных случаях отрицательные числа заменить их модулями, а положительные оставить без изменения.(Надо написать программу на паскале)

Var x,y,z:integer;          
begin
  write (введите X: );
  readln(x);
  write (введите Y: );
  readln(y);
  write (введите Z: );
  readln(z);
  if (x>0)and(y>0)and(z>0)then
     begin    x:=x+2; y:=y+2;z:=z+2;    end
     else     begin    x:=abs(x);y:=abs(y);z:=abs(z);    end ;
   writeln(x= ,x);
   writeln(y= ,y);
   writeln(z= ,z);
   end.