В массиве целых чисел (двумерном) найти наиболее часто встречающееся число. А так же min(минимум) и max(максимум). Реализовать процедурой и функцией — Pascal(Паскаль)

uses crt;
var
  a: array [1 .. 10,1 .. 10] of integer;
  i, j, k, d, n, mx, obr, sr: byte;
begin
  Randomize;
  write('Размер - '); readln(n);
  writeln('           ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(10);
      write(a[i,j],'  ');
    end;
    writeln;
  end;
  writeln('                   ');
 
   obr:=0;
  for i:=1 to n do
  for j:=1 to n do
    begin
     mx:=0;
     for k:=1 to n do
     for d:=1 to n do
     if a[i,j]=a[k,d] then mx:=mx+1;
     if (mx>obr) then
      begin
       sr:=a[i,j];
       obr:=mx;
      end;
    end;
write('Максимальное количество раз встречается элемент ', sr);
end.