Сформировать массив, каждый элемент которого равен наибольшему по модулю элементу соответствующей строки - Turbo Pascal

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

Помогите пожалуста написать програму на паскаль) Дан двумерный массив целых чисел. Сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующей строки двумерного массива

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

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

Var
  x: Array [1..10,1..10] of Integer;
  y: Array [1..10] of Integer;
  i,j,n,m: Byte;
  max: Integer;
BEGIN
Write('Введите размеры матрицы: ');
Readln(n,m);
Randomize;
For i:=1 to n do
begin
  max:=0;
  For j:=1 to m do
  begin
    x[i,j]:=Random(101)-50;
    Write(x[i,j]:4);
    If Abs(x[i,j])>Abs(max) Then
    max:=x[i,j];
  end;
  y[i]:=max;
  Writeln
end;
Writeln('Одномерный массив: ');
For i:=1 to n do
Write(y[i],' ');
Readln
END.

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

Создается переменная x, которая представляет собой двумерный массив целых чисел размером от 1 до 10 в каждой из двух осей.
Создается переменная y, которая представляет собой одномерный массив целых чисел размером от 1 до 10.
Создаются три байтовых переменных i, j и n, которые будут использоваться для итерации по массиву x.
Создается целочисленная переменная max, которая будет использоваться для хранения наибольшего по модулю элемента массива x.
Задание размеров матрицы x с помощью функции Readln().
Инициализация переменной max значением 0.
Цикл for, который выполняется n раз, где n - введенный размер матрицы x. В каждой итерации цикла for выполняется следующая последовательность действий:
- Переменная max инициализируется значением 0.
- Цикл for, который выполняется m раз, где m - введенный размер строки массива x. В каждой итерации цикла for выполняется следующая последовательность действий:
  - Переменная x[i,j] инициализируется случайным числом от 0 до 100 с помощью функции Random(101)-50;.
  - Значение x[i,j] выводится на экран с помощью функции Write(x[i,j]:4);.
  - Если модуль числа x[i,j] больше модуля числа max, то значение max обновляется.
- Значение max сохраняется в переменную y[i].
- Выводится строка Writeln(y[i],' '); с помощью функции Writeeln().
Выводится сообщение Одномерный массив: с помощью функции Writeln().
Завершение программы.