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

  program zapmas;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
   MaxStrings=1000;        {Опять макс.кол.во строк}
   MaxColumns=1000;        {Макс.количество стобцов}
   MaxAnount=20;         {Максимальное значение элементов}
 
type
  mas=array[1..maxstrings,1..maxcolumns] of integer;        {массивчик}
 
var
  a:mas;
  i,k,n,p,x,y,j,callmax,m,max:integer;
 
begin
writeln('Arrays(problem2)');writeln;writeln('Press Enter To Continue');readln;        {заголовок}
Write('Enter number of strings:  ');readln(n);        {считываем количество строк}
write('Enter number of columns:  ');readln(m);        {количество столбцов}
 
randomize;        {заполняем числами случайно}
for i:=1 to n do
 begin
  for k:=1 to m do        {уже про это говорил}
   begin
    a[i,k]:=random(MaxAmount)-(MaxAmount div 2);
   end;
 end;
 
writeln('Massiv bez izmenenij');         {рисуем массив}
For k:=1 to n do
  begin
    writeln('--------------------------------------------------------------');
      For i:=1 to m do
        begin
          write(' ',a[k,i],' |');
        end;
    writeln;
end;
writeln('--------------------------------------------------------------');
 
writeln('press enter');        {переход к следущему шагу}
readln;
 
For i:=1 to m do        {ищим максимальное}
 begin
  for j:=1 to n do
   begin
     if abs(a[i,j])>abs(max) then max:=a[i,j];
   end;
 end;
 
writeln('Maximalniy po modulyu element =  ', max);writeln;        {пишем макс.}
 
for i:=n downto 1 do        {саму сцуко прогу долго обьяснять, поэтому расскажу}
  begin        {бегаем с нижней строчке к верхней, от 1ого числа к последнему в каждой строчке}
    for j:=1 to m do        {когда его нашли, то}
      begin
        if a[i,j]=max then
           begin
             for x:=i to n-1 do
                begin
                  for k:=1 to m do
                     a[x,k]:=a[x+1,k];        {сдвигаем столбцы влево}
                end;
             for p:=1 to n-1 do
                begin
                  for x:=j to m-1 do
                     a[p,x]:=a[p,x+1];        {и сдвигаем строки вверх}
                end;
              inc(y);        {счетчик}
             break;        {больше в этой строке не ищем}
            end;
       end;
   end;
 
writeln('Otredactirovannij massiv');         {рисуем получившуюся матрицу}
For k:=1 to n-y do
  begin
    writeln('--------------------------------------------------------------');
       For i:=1 to m-y do
          begin
              write(' ',a[k,i],' |');
          end;
    writeln;
  end;
  writeln('--------------------------------------------------------------');
 
writeln;
writeln('press enter to exit');        {выход}
readln;
end.