Получить матрицу B[1..N-1,1..M-1] из матрицы A[1..N,1..M] удалением какой-либо х-той строки и k-го столбц

[kempers]

Ребят, решите задачку на двумеры

Получить матрицу B[1..N-1,1..M-1] из матрицы A[1..N,1..M] удалением какой-либо х-той строки и k-го столбца (х и k вводятся с клавиатуры).

Очень надо...спасиб за ранее...)

[alex_fcsm]

uses crt;
const m=8;
      n=7;
var i,j,x,k:integer;
    a:array[1..n,1..m] of integer;
    b:array[1..n-1,1..m-1] of integer;

begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
   a[i,j]:=random(30);
   write(a[i,j]:3);
   end;
 writeln;
 end;
writeln('-------------------');
writeln('Number of string?');
readln(x);
writeln('Number of column?');
readln(k);
for i:=x to n-1 do
 for j:=1 to m do
  a[i,j]:=a[i+1,j];
for j:=k to m do
 for i:=1 to n do
  a[i,j]:=a[i,j+1];
for i:=1 to n-1 do
 for j:=1 to m-1 do
  b[i,j]:=a[i,j];

for i:=1 to n-1 do
 begin
  for j:=1 to m-1 do
   write(a[i,j]:3);
   writeln;
 end;

  
end.

[kempers]

alex_fcsm спасибо огромное, второй раз выручил, очень сильно....