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

uses crt; var a:array[1..100, 1..100] of integer; i,j,m,n,max,kol:integer; begin writeln('Введите размер массива'); readln(m,n); for i:=1 to m do begin       for j:=1 to n do      begin           writeln('Введите элементы массива ' ,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,', встречается ',kol,' raz.'); end.

var   a:array[1..100, 1..100] of integer;   n, m,  count, i, j, max:integer; begin   randomize;   write('m = ');   readln(m);   write('n = ');   readln(n);   writeln('Исходный массив :');   for i := 1 to m do   begin     for j := 1 to n do     begin       a[i, j] := random(11);       write(a[i, j], ' ');     end;     writeln;   end;     max := a[1, 1];   for i := 1 to m do     for j := 1 to n do       if a[i, j] > max then         max := a[i, j];   writeln('Max = ', max);      for i := 1 to m do   begin     count := 0;     for j := 1 to n do       if a[i, j] = max then         inc(count);     writeln('В строке', i ,' находится', count, ' максимальных элементов');   end;   readln; end.