Л-19 задача-2

Program p19_2;
    var b:array[1..100] of integer;
    a:array[1..3,1..3] of integer;
    n,m,i,k,max,j,l,g:integer;
    fl:boolean;
begin
write('Введите размер двумерного массива: ');
readln(n);
writeln;
writeln('Введите элементы массива: ');//от этого места
for i:=1 to n do
  for j:=1 to n do
    begin
    write('a[',i,',',j,'] = ');
    readln(a[i,j]);
    end;//до этого места,идет заполнение двумерного массива через двойной цикл

for i:= 1 to n do begin
    for j:= 1 to n do
    write (a[i,j]:2, ' ');
    writeln;
    end;//вывод двумерного массива

k:=0;
for j:=1 to n do
  for i:= 1 to n do begin
    m:=0;
    for l:= 1 to n do
    for g:= 1 to n do
        begin
        if (a[i,j]=a[l,g]) and ((j<>g) or (i<>l))then begin  m:=m+1; //если элементы массива равны И номер элемента в массиве НЕРАВНА, то увеличим (m) на 1
            if m>=1 then //и если (m) больше 1, то
                begin
                  k:=k+1;//увеливаем (k) на 1
                  b[k]:=a[i,j];//заполним новый массив этими элеметами
                  m:=0;//онуляем переменную
                end;
            end;
        end;
    end;
writeln;
max:= b[1];//в переменную ответа - первый элемент массива (b)
for i:=2 to k do
  if b[i]>max then max:=b[i];//перебираем массив (b) - узнаем максимальное из этого массива
  writeln ('Максимальное из чисел,встреченных более одного раза = ',max);//ответ
end.