Найти наибольший элемент матрицы, найти номер строки и номер столбца, на пересечении которых он находится.

Const
  n=4;
Var
  x: Array[1..n,1..n] of Integer;
  max: Integer;
  i,j,imax,jmax: Byte;
BEGIN
Randomize;
max:=-Maxint;
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(100);
    If x[i,j]>max Then
    begin
      max:=x[i,j];
      imax:=i;
      jmax:=j;
    end;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('MAX= ',max,'[',imax,';',jmax,']');
Readln
END.

const
  size=4;
 
type
  tmatrix=array[1..size,1..size] of integer;
 
var
  i,j,mi,mj,max:byte;
  flag:boolean;
  a:tmatrix;
 
begin
  randomize;
  flag:=true;
  for i:=1 to size do begin
    for j:=1 to size do begin
      a[i,j]:=random(20)+1;
      write(a[i,j]:3);
      if flag then begin
        max:=a[i,j];
        mi:=i;
        mj:=j;
        flag:=false;
      end;
      if max<a[i,j] then begin
        max:=a[i,j];
        mi:=i;
        mj:=j;
      end;
    end;
    writeln;
  end;
  writeln;
  writeln('максимальный элемент массива : ',a[mi,mj]);
  writeln('координаты массива : строка ',mi,',столбец ',mj);
  readln;
end.