Найти максимальный и минимальный элемент двумерного массива

var
  i,j,x,n,m,min,max : longint;
begin
  readln(n);
  readln(m);
  min:=2000000000;
  max:=-2000000000;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      readln(x);
      if min>x then min:=x;
      if max<x then max:=x;
    end;
  end;
  writeln(min,' ',max);
end.

{ПО-41 СВЯЯЯЯЗЬ}
program lb7;
uses crt;
var T:array [1..50,1..50] of real;
    n,m,i,j,
    imax,jmax,
    imin,jmin:byte;
    Max,Min,sr:real;
    
begin
write('Количество строк: ');
readln(n);
write('Количество столбцов: ');
readln(m);
For i:=1 to n do
 begin
   for j:=1 to m do
    begin
       T[i,j]:=random(80)-49;
     end;
 end;
writeln;
for i:=1 to n do
  begin
    for j:=1 to m do
    write(T[i,j]:4);
    writeln;
  end;
writeln;
Max:=T[1,1];
  imax:=1;
  jmax:=1;
  for i:=1 to n do
    for j:=1 to m do
    if T[i,j]>Max then
    begin
    Max:=T[i,j];
    imax:=i;
    jmax:=j;
    end;
      writeln( 'T(max)[',imax,',',jmax,']=',Max);   
 
  min:=T[1,1];
  imin:=1;
  jmin:=1;
  for i:=1 to n do
    for j:=1 to m do
    if T[i,j]<Min then
    begin
    Min:=T[i,j];
    imin:=i;
    jmin:=j;
    end;
      writeln( 'T(min)[',imin,',',jmin,']=',Min);
      writeln;
      
If imin=imax Then
 Writeln('Минимальное и максимальное значения находятся в одной строке №',imin);
      
sr:=(Max+Min)/2;
writeln('Среднее арифметическое максимального и минимального значений: ',sr);
writeln;
end.