В однородном массиве , состоящем из 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 abs(a[i])gt;max then begin max:=abs(a[i]);j:=i; end;
end;
writeln(Максимальное по модулю число равно ,a[j]);
end.