Удаление определенных строки и столбца из матрицы

[X-QuadrO]

Подскажите как задачку решить:

Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В программе предусмотреть вывод исходной матрицы и полученной.
Дана матрица NxN. Получить новую матрицу (N-1)x(N-1) удалением строки и столбца, на пересечении которых расположен наибольший по модулю элемент.

Если не особо затруднит - напишите с комментариями.

[BalashovM]

Вроде бы вполне оптимизированная программа, только вот не придумал, как изменить номера ячеек в новой таблице - пробовал вводить новые переменные, но получается громоздко и чересчур сложно. Итак, вот код программы, комментарии писать лень, если есть вопросы - задавай прямо здесь или в ЛС

program matrix;
 uses CRT;
  var table:array [1..3,1..4] of integer;
       y,y_max,x,x_max:integer;
       max:integer;
begin
 max:=0;
 randomize;
 CLRSCR;
  for y:=1 to 3 do
   for x:=1 to 4 do
    begin
     table[y,x]:=random(80);
      if abs(table[y,x]) > abs(max) then
       begin
        max:=table[y,x];
        x_max:=x; y_max:=y;
       end;
    end;
  for y:=1 to 3 do
   begin
     for x:=1 to 4 do
      write('[',y,'x',x,'] = ',table[y,x]:2,' ');
    writeln;
   end;
 writeln('Max element is ',max);
  for y:=1 to 3 do
   begin
     for x:=1 to 4 do if (x<>x_max) and (y<>y_max) then write('[',y,'x',x,'] = ',table[y,x]:2,' ');
    writeln;
   end;
end.