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

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.