Дан массив целых чисел, сколько раз в нем встречается максимальный элемент.. - Pascal

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

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

Решение задачи: «Дан массив целых чисел, сколько раз в нем встречается максимальный элемент..»

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

uses crt;
var
a:array[0..20, 0..20] of integer;
i, j, max, r1, r2, kolvo:integer;
begin
writeln('Vvedite kol-vo strok matricy:');
readln(r1);
writeln('Vvedite kol-vo stolbcov matricy:');
readln(r2);
writeln('Vvedite matricu:');
for i:=0 to r1-1 do
for j:=0 to r2-1 do begin
write('A[', i, '][', j, '] = ');
readln(a[i, j]);
end;
max:=a[0, 0];
for i:=0 to r1-1 do
for j:=0 to r2-1 do
if maxa[i, j] then max:= a[i, j];
kolvo:=0;
for i:=0 to r1-1 do
for j:=0 to r2-1 do
if max=a[i, j] then inc(kolvo);
writeln('Vvedennaya matrica:');
for i:=0 to r1-1 do begin
writeln;
for j:=0 to r2-1 do
write('  ', a[i, j], '  ');
end;
writeln;
writeln('Kol-vo = ', kolvo);
readln;
end.

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

Объявление переменных:
- a: массив целых чисел размером [0..20, 0..20], в котором будет храниться исходная матрица;
- i, j, max, r1, r2, kolvo: целочисленные переменные для хранения индексов, значения максимального элемента и количества его вхождений в матрице.
Ввод количества строк и столбцов матрицы с помощью функции readln().
Ввод матрицы с помощью двух вложенных циклов. Внешний цикл выполняет итерацию по строкам, внутренний - по столбцам. Внутри циклов выводится текущее значение элемента матрицы, а затем с помощью функции readln() сам элемент.
Присваивание начальному элементу матрицы (a[0, 0]) значения максимального элемента.
Поиск максимального элемента матрицы. Для этого используется два вложенных цикла. Если текущий элемент матрицы больше значения max, то он присваивается max.
Инициализация переменной kolvo значением 0. Она будет использоваться для подсчета количества вхождений максимального элемента в матрице.
Проход по всем элементам матрицы с помощью двух вложенных циклов. Если значение элемента равно max, то к переменной kolvo прибавляется единица.
Вывод исходной матрицы на экран с помощью вложенных циклов. Каждая строка матрицы выводится с новой строки, а каждый элемент матрицы выводится через пробел.
Вывод значения переменной kolvo.
Ввод с помощью функции readln() для завершения работы программы.