Дан двумерный массив. Найти максимальный элемент и проверить сколько раз он встречается в каждой строке? - Free Pascal

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

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

Решение задачи: «Дан двумерный массив. Найти максимальный элемент и проверить сколько раз он встречается в каждой строке?»

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

uses crt;
var a:array[1..1000, 1..1000] of longint;
i,j,m,n,max,kol:longint;
begin
writeln('vvedite razmeri matrici(MxN)');
readln(m,n);
for i:=1 to m do
begin
     for j:=1 to n do
     begin
          writeln('vvedite element matrici ' ,i,'x',j);
          readln(a[i,j]);
     end;
end;
for i:=1 to m do
begin
     for j:=1 to n do
     begin
          if a[i,j]>max then
          max:=a[i,j];
     end;
end;
for i:=1 to m do
begin
     for j:=1 to n do
     begin
          if a[i,j]=max then
          inc(kol);
     end;
end;
writeln('max=',max,', vstrechaetsya ',kol,' raz.');
end.

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

Объявлены переменные:
- a: двумерный массив размером 1000x1000 для хранения элементов;
- i, j, m, n, max, kol: целочисленные переменные для выполнения операций.
Пользователю предлагается ввести размеры матрицы (m x n).
Ввод элементов матрицы происходит в цикле. Внешний цикл выполняет итерацию по строкам (i), внутренний - по столбцам (j).
Цикл ввода элементов матрицы завершается, и начинается поиск максимального элемента в матрице (переменная max инициализируется как первый введенный элемент).
Затем начинается подсчет количества вхождений максимального элемента в каждой строке матрицы (переменная kol).
Выводится сообщение с максимальным элементом и количеством его вхождений.
Программа завершается.