В однородном массиве, состоящем из N вещественных частей, отыскать наибольший по

Uses crt;
var a:array[1..99] of real;
i,j,n:integer;
max:real;
begin
write('Введите n: ');
readln(n);
writeln('Начальный массив: ');
for i:=1 to n do begin
a[i]:=random(99-(-99)+1)-99;
write(a[i]:5);
end;
writeln;
max:=-5;
for i:=1 to n do begin
if абс(a[i])gt;max then begin max:=абс(a[i]);j:=i; end;
end;
writeln('Максимальное по модулю число одинаково ',a[j]);
end.