Ввести с клавиатуры 10 чисел — положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные числа. Отрабатываются ошибки ввода — Pascal(Паскаль)

CONST
 N = 10;
VAR
 A: Array [1..N] of Real;
 i: Integer;
 code: Boolean;
BEGIN
 for i:=1 to N do begin
   Write('Введите ',i:2,'-ое число: ');
   repeat
   {Защита от ошибочного ввода}
     {$I-} ReadLn(A[i]); {$I+}
     code := IOResult = 0;
     if NOT code then
       Write('Ошибочный ввод. Повторите ');
   until code;
 end;
 WriteLn('Исходный массив');
 for i:=1 to N do WriteLn(i:2,') ',A[i]);
 for i:=1 to N do
    if A[i] < 0 then A[i] := abs(A[i]);
 Writeln('Массив после преобразования');
 for i:=1 to N do WriteLn(i:2,') ',A[i]);
END.