Найти максимальный по модулю элемент двумерного массива - Pascal ABC (18863)

Формулировка задачи:

Для двумерного массива.Найти максимальный по модулю элемент массива. помогите, пожалуйста.

Решение задачи: «Найти максимальный по модулю элемент двумерного массива»

Листинг программы

Var
  a: Array [1..10,1..10] of Integer;
  i,n,m,max,j: Integer;
BEGIN
Write('Введите кол-во строк: ');
Readln(n);
Write('Введите кол-во столбцов: ');
Readln(m);
max:=0;
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    a[i,j]:=Random(1001)-500;
    Write(a[i,j]:5);
    If Abs(a[i,j])>Abs(max) Then
    max:=a[i,j];
  end;
  Writeln
end;
Writeln('Максимальный по модулю = ',max);
END.

Объяснение кода листинга программы

Объявляется двумерный массив a размером 10х10 и несколько вспомогательных переменных (i,n,m,max,j) типа Integer.
Вводится количество строк и столбцов массива с помощью функций Readln.
Инициализируется переменная max значением 0.
В цикле For i от 1 до n выполняется:
- В цикле For j от 1 до m выполняется:
  - Элементу a[i,j] присваивается случайное число от -500 до 500 с помощью функции Random.
  - Выводится значение элемента a[i,j] с помощью функции Write.
  - Если абсолютное значение элемента a[i,j] больше, чем абсолютное значение переменной max, то max присваивается значение a[i,j].
- Выводится значение переменной max с помощью функции Writeln.
Выводится максимальный по модулю элемент массива с помощью функции Writeln.