Дано n чисел. Поменяйте все отрицательные числа их модулями. Язык программирования

program zz1;
const n=5; //вводим данное число n
var i:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do //вводим числа из ряда через пробел в строчку
read(a[i]);

for i:=1 to n do 
if a[i]lt;0 then a[i]:=абс(a[i]); //проверяем, если число отрицательное, то записываем в массив вместо отрицательного числа, модуль этого числа

for i:=1 to n do
write(a[i], ); //выводим числа из массива на экран
end.