[Pascal] Дана действительная матрица порядка n, удалить из матрицы i-ю строку и j-й столбец

[Anna.P.E.]

Дана действительная матрица порядка n, удалить из матрицы i-ю строку и j-й столбец
Вот собственно мои наброски решения.
Подскажите, что не так или что нужно дописать, пожалуйста.


Код Pascal

Var a:array [1..10,1..10] of Integer;
b,c,i,j,n:Integer;
begin
Readln(n,b,c);
for i:= 1 to n do
for j:= 1 to n do
Readln(a[i,j]);
for i:= b to n-1 do
for j:= 1 to n do
a[i,j]:= a[i+1,j];
for i:= 1 to n do
for j:= c to n-1 do
a[i,j]:= a[i,j+1];
writeln;
end.

b- строка
c- столбец
Вроде бы я не удаляю, а "закрашиваю" нужную строку/столбец. Как удалить (без параметров) я не знаю. Была идея Dec использовать
Кому не сложно, гляньте и скажите, что не так

Или предложите свой вариант написания программы

[newerow1989]

В принципе работает! Но я бы 2 последних строчки

writeln;
end.

заменил бы на

for i:=1 to n-1 do
begin
for j:=1 to n-1 do
   Write(a[i,j],' ');
Writeln('');
end;
readln;
end.

для отображения на экран.

[Smitt&Wesson]

typedef unsigned int uint; // Новое имя целочисленного неотрицательного типа
struct index{uint col, row;};// Структура индексов обрабатываемого массива

// Удалить строку матрицы
double **DeleteRow(double **A, index &x, uint s)
{
// если строка не последняя, сдвигаем их на место удаляемой
  if(s >= x.row) return A;
    x.row--;
    for(uint i=s; i<x.row; i++)
      for(uint j=0; j<x.col; j++)
        A[i][j] = A[i+1][j];
  delete[] A[x.row];
  return A;
}

// Удалить столбец матрицы
double **DeleteCol(double **A, index &x, uint c)
{
  if(c >= x.col) return A;
  x.col--;
  double **B = CreateMatrix(x);
  for(uint i=0; i<x.row; i++)
    for(uint j=0; j<x.col; j++)
      if(j < c) B[i][j] = A[i][j];
      else B[i][j] = A[i][j+1];
  DeleteMatrix(A, x);
  return B;
}

Контрольные примеры. Вставляются в int main

  X.row = 3; X.col = 3;
  double **D = CreateMatrix(X);
  cout << "Удалить строку матрицы \n";
  D = DeleteRow(D, X, 1);
  PrintMatrix(D, X);

  cout << "\nУдалить столбец матрицы \n";
  D = DeleteCol(D, X, 1);
  PrintMatrix(D, X);
  DeleteMatrix(D, X);
  cout << "\n";

Код с динамическими массивами.