Дан массив вещественных чисел x[8]. Каждый отрицательный элемент поменять на его

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