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

Вычисление модуля реализуем с помощью функции Pascal - abs(x).

Program mod;
var
A: array[1..100] of real;
n,i: integer;
begin
for i:=1 to n do readln(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], );
readln
end.

Можно вообще все деяния записать одним циклом:
for i:=1 to n do
begin readln(A[i]);
if A[i]lt;0 then A[i]:=абс(A[i]);
write(A[i], );
end.