Дана матрица вещественных чисел

uses crt;
var a:array[1..20,1..20] of real;
    m,n,i,j,imx,jmx:integer;
    mn,mx:real;
begin
clrscr;
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
mx:=-1;imx:=1;jmx:=1;
for i:=1 to m do
 begin
  mn:=a[i,1];
  for j:=1 to n do
  if a[i,j]<mn then mn:=a[i,j];{минимальный в строке}
  if mn>mx then mx:=mn;{максимальный из минимальных}
 end;
for i:=1 to m do
for j:=1 to m do
if a[i,j]=mx then
 begin
  imx:=i;{его строка}
  jmx:=j;{его столбец}
  break;{прекращаем поиск}
 end;
writeln('Максимальный из минимальных элементов строк=',mx:0:2);
writeln('его координаты=[',imx,',',jmx,']');
for i:=imx to m-1 do
for j:=1 to n do
a[i,j]:=a[i+1,j];{сдвигаем строки на 1 вверх к строке с макс}
m:=m-1;{уменьшаем на 1 кол. строк}
for j:=jmx to n-1 do
for i:=1 to m do
a[i,j]:=a[i,j+1];{сдвигаем столбцы на 1 влево к столбцу с макс}
n:=n-1;{уменьшаем количество столбцов}
writeln('Матрица после удаления строки и столбца:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.