Удалить строки и столбцы, на пересечении которых находиться элемент, ближайший к среднему арифметическому элементов матрицы

Var A:array[1..20,1..20] of real;
    i,j,isr,jsr,n,m:byte;
    sr,max:real;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    sr:=0;
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random*10;
        write(A[i,j]:5:2);
        sr:=sr+A[i,j];
      End;
      writeln;
    End;
    sr:=sr/(n*m);
    isr:=1;jsr:=1;
    max:=abs(sr-A[1,1]);
    For i:=1 to n do
     For j:=1 to m do
      if abs(sr-A[i,j])<max then 
      Begin
        max:=abs(sr-A[i,j]);
        isr:=i;
        jsr:=j;
      End;
   writeln('Среднее арифметическое: ',sr:0:2);
   writeln('Элемент наиболее бликий к среднему арифметическому = ',A[isr,jsr]:0:2,' индексы A[',isr,',',jsr,']');
   if isr<n then
   Begin
     For i:=isr to n-1 do
      For j:=1 to m do
       A[i,j]:=A[i+1,j];
     dec(n);
   End
   else dec(n);
   if jsr<m then
   Begin
     For j:=jsr to m-1 do
      For i:=1 to n do
       A[i,j]:=A[i,j+1];
     dec(m);
   End
   else dec(m
   );
   For i:=1 to n do
   Begin
     For j:=1 to m do
      write(A[i,j]:5:2);
     writeln;
   End;
   readln;
End.