Переформирование матрицы Опции

[Katti]

Вот такая задачка: разработать программу, которая в заданной действительной квадратной матрице порядка n находит наибольший по модулю элемент и формирует новую квадратную матрицу порядка (n-1) путем выбрасывания из исходной матрицы строки и столбца, на пересечении которых лежит элемент с найденным значением.
Помогите пожалуйста!!!!

[klem4]

Код

...
k:=1;
p:=1;
  for i:=1 to n do
   for j:=1 to n do
    if i<>imax then
     if j<>jmax then
      begin
         y[k,p]:=x[i,j];
         if p<n-1 then inc(p)
          else
           begin
              inc(k);
              p:=1;
           end;
      end;
...