Определить максимальный и минимальный элемент

uses crt;
const nmax=10;
var x:array[1..nmax,1..nmax] of integer;
    temp,kp,kn,k0,m,n,imax,jmax,imin,jmin,k,i,j:integer;
    sred:real;
begin
clrscr;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
write('Введите ',m*n,' значений матрицы: ');
for i:=1 to m do
for j:=1 to n do
 begin
  write('x[',i,',',j,']=');
  readln(x[i,j]);
 end;
clrscr;
writeln('Исходная матрица: ');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(x[i,j]:4);
  writeln
 end;
imax:=1;
jmax:=1;
imin:=1;
jmin:=1;
for i:=1 to m do
for j:=1 to n do
if x[i,j]>x[imax,jmax]then
 begin
  imax:=i;
  jmax:=j;
 end
else if x[i,j]<x[imin,jmin]then
 begin
  imin:=i;
  jmin:=j;
 end;
writeln('Максимальный элемент матрицы: ',x[imax,jmax]);
writeln('Минимальный элемент матрицы.: ',x[imin,jmin]);
writeln('Измененная матрица: ');
temp:=x[imin,jmin];
x[imin,jmin]:=x[imax,jmax];
x[imax,jmax]:=temp;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(x[i,j]:4);
  writeln
 end;
repeat
write('Введите номер строки от 1 до ',m,' i=');
readln(i);
until i in [1..m];
sred:=0;
for j:=1 to n do
if x[i,j]<0 then sred:=sred+x[i,j];
sred:=sred/n;
writeln('Среднее отрицательных элементов в строке ',i,'=',sred:0:2);
readln;
end.