Вывести значения максимального элемента

program z1;
uses crt;
const
n=10; m=20;
var
 a:array [1..n,1..m] of integer;
 i,j:integer;
 max:integer;
 str,stl:integer;
begin
  clrscr;
  randomize;
  for i:=1 to n do
  for j:=1 to m do
 a[i,j]:=random(100);
  for i:=1 to n do
  begin
  for j:=1 to m do
   write(a[i,j]:5);
   writeln;
  end;
 str:=1;
 stl:=1;
 max:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do
 if (a[i,j]) > max then begin
 max:=a[i,j];
 str:=i;
 stl:=j;
end;
writeln;
writeln('Максимальный элемент: ',max);
writeln('Столбец:',stl, ' Строка:',str);
readln;
end.

const m=10;
      n=20;
var x:array[1..m,1..n] of integer;
    i,j,mx,imx,jmx:integer;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=10+random(90);
    write(x[i,j]:3);
    if i*j=1 then
     begin
      mx:=x[1,1];
      imx:=1;
      jmx:=1;
     end
    else if x[i,j]>mx then
     begin
      mx:=x[i,i];
      imx:=i;
      jmx:=j;
     end
   end;
  writeln;
 end;
writeln('Максимальный элемент в матрице=',mx,' его координаты [',imx,',',jmx,']');
end.