дан массив вещественных чисел . Вывести на экран новое состояние массива

program zz1;
const n=5; // задаем количество чисел в массиве
var i:integer; // задаем переменную целого типа
x:array [1..n] of real;
begin
for i:=1 to n do // организуем цикл, в котором введем с клавиатуры n данных чисел в массив
read(x[i]);
for i:=1 to n do // организуем цикл, в котором проверяем число из массива и если оно отрицательное, то делим его на два, а если положительное, то умножаем на два
begin
if x[i] lt; 0 then x[i]:=x[i] / 2;
if x[i] gt; 0 then x[i]:=x[i] * 2;
end;
for i:=1 to n do
write(x[i], ); // выводим полученные числа из массива в строку через пробел
end.