найти максимальный по модулю элемент массива,массив состоит из n вещественных чисел . Помогите пожалуйста))

uses crt;var a:array[1..99] of real;i,j,n:integer;max:real;beginwrite('Введите 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])>max then begin max:=abs(a[i]);j:=i; end; end;writeln('Максимальное по модулю число равно ',a[j]);end.

Здесь элементы массива - случайные числа от -99 до 99. В ответе выписывается само число, а не его модуль. Если нужен именно модуль, то меняем предпоследнюю строку на writeln('Максимальное по модулю число равно ',max);