Здравствуйте, angel.nero.
Я так понял, вам надо из двумерного массива удалить n столбец и k стлобец, а правельнее будет сказать, удалить их из матрицы. Для этого надо удалить из массива все элементы с индексами: [n,i], где i изменяется от 1 до N_str (N_str - кол-во строк) и элементы с индексами [j,k], где j изменяется от 1 до K_st (K_st - кол-во столбцов). Следует учесь, что при удалении размерность массива (матрицы) уменьшится и станет равной (N_str-1)*(K_st-1). Поэтому предлагаетю следующий алгоритм:
1) Удаляем строку n. Для этого сдвигаем все строки массива M с индексом строки i>=n на еденицу влево.
2) Удаляем столбец. Для этого сдвигаем все стролбцы массива M с индексом стлбца j>=k на еденицу влево.
3) По желанию обнуляем последюю строку и столбец массива с индексами строки и столбца равными соответственно N_str и K_st
Всё это на языке паскаль будет выглядеть так:
//удаление строки--------------------
for i:=n to N_str do
for j:=1 to K_st do M[i,j]:=M[i+1,j]; //сдвиг в лево строк
//удаление столбца-----------------
for i:=1 to N_str-1 do //так как из матрицы уже удалена одна строка, то их число можно взять равны N_str-1
for j:=k to K_st-1 do M[i,j]:=M[i,j+1]; //сдвиг в лево столбцов
//Обнуление последних строк и столбца:
for j:=1 to K_st do M[N_str,j]:=0; //обнуление строки
for i:=1 to N_str do M[i,K_st]:=0; //обнуление столбца
//конец
При выводе следует учесть что размерность массива (матрицы) уменьшилась и стала равной (N_str-1)*(K_st-1). Соответственно обнуление последних элементов строки и столбца можно

Здравствуйте, angel.nero.

Как мне показалось, что по смылу задачи в ней должнв фигурировать два массива A и B. Поэтому я решил написать второй вариант.
Пусть массив A имеет размер m на s и, соответственно массв B - размер m-1 на s-1. Тогда массив B можно получить следующим образом:

for i:=1 to m-1 do
for j:=1 to s-1 do
if (i<n)and(j<k) then b[i,j]:=a[i,j]
else if j<k then b[i,j]:=a[i+1,j]
else b[i,j]:=a[i+1,j+1];

Можно так:
Смотрите приложение.

Приложение:
const
n=5; m=5;
var i,j,k,l,ii,jj:integer;
a: array [1..n,1..m] of integer; {матрица NxM}
b: array [1..n-1,1..m-1] of integer;

begin
randomize;
ii:=1; jj:=1;
repeat {защита против "дурака": k д.б. <= n, а l д.б. <= m}
writeln('Enter k < ',n+1);
readln(k);
writeln('Enter l < ',m+1);
readln(l);
until ((k<=n) and (l<=m));
writeln('Massiv a:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10); {заполняем матрицу случайными значениями}
write(a[i,j]:4); {выводим матрицу A}
end;
writeln;
end;
writeln('Massiv b:');
for i:=1 to n do
begin
for j:=1 to m do
begin
if (i<>k) and (j<>l) then
begin
b[ii,jj]:=a[i,j];
write(b[ii,jj]:4);
inc(jj);
if (jj>m-1) then {переход на новую строку...}
begin
inc(ii); jj:=1; writeln;
end;
end;
end;
end;
readln;
end.