Определить наибольшые элементы - Pascal

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

Помогите пожалуйста розобраться с задачей. "В матрицэ В(7,3) определить наибольшые элементы из отрицательных элементов строк что имеют четные индексы. Вывести найденные наибольшые элементы в виде массива."

Решение задачи: «Определить наибольшые элементы»

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

uses crt;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    i,j,n,m:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
 for i:=1 to n do
  for j:=1 to m do
   if (a[i,j]<0) and (i mod 2=0) then
    begin
     b[i]:=1;
     if a[i,j]<b[i] then
      begin
       b[i]:=a[i,j];
      end;
    end;
 for i:=1 to n do
  Write(b[i]:4);
Readln;
end.

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

Объявлены переменные:
- a - двумерный массив (100x100) целых чисел
- b - одномерный массив (100) целых чисел
- i, j, n, m - целочисленные переменные для выполнения операций в цикле
Задаются значения переменным n и m с помощью функции Readln
Заполняется массив a случайными числами от -10 до 10 с помощью функции random и оператора модуля
Выводится содержимое массива a в консоль с помощью цикла и функции Write
Заполняется массив b значениями из массива a, при условии что элемент a отрицательный и i является четным числом с помощью цикла и условного оператора if
Выводится содержимое массива b в консоль с помощью цикла и функции Write
Программа завершается с помощью функции Readln