Найти в каждой строке матрицы наибольший отрицательный элемент - Pascal ABC

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

Дан двумерный массив NxN заполненный случайными числами от -50 до 50. Найти в каждой строке наибольший отрицательный элемент. Помогите пожалуйста.

Решение задачи: «Найти в каждой строке матрицы наибольший отрицательный элемент»

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

uses crt;
const n=10;
var a:array [1..n,1..n] of integer;
i,j,max:integer;
 
begin
   Writeln('Массив: ');
   For i:=1 to n do
     begin
     For j:=1 to n do
       begin
       randomize;
       a[i,j]:=random(101)-50;
       write(a[i,j]:4);
       end;
     writeln;
     end;
   Writeln('Максимальные отрицательные эл-ты:');
   For i:=1 to n do
     begin
     max:=-1;
     For j:=1 to n do
        if (a[i,j]<0)and(a[i,j]<max) then max:=a[i,j];
     Writeln('В ',i,'-й строке - ',max);
     end;
end.

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

Объявлены переменные: i, j, max (номер 3)
Вывод размера матрицы (n) (номер 1)
Инициализация матрицы a случайными числами от -50 до 50 (номер 2)
Вывод значений матрицы a (номер 4)
Поиск максимального отрицательного элемента в каждой строке матрицы (номер 5)
Вывод найденных максимальных отрицательных элементов и номера строк (номер 6)