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