Получить массив B из массива А удалением K-ой строки и L-го столбца

program p8;
uses crt;
const nmax=20;
type matrix=array [1..nmax,1..nmax] of integer;
procedure Vvod(var f:text;var a:matrix;var n,m:byte);
var i,j:integer;
begin
assign(f,'matrica.txt');
reset(f);
read(f,n,m);
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     read(f,a[i,j]);
     write(a[i,j]:5);
    end;
   writeln;
 end;
close(f);
end;
procedure Udalenie (var a:matrix;var n,m:byte;i,j:byte);
var t,p:byte;
begin
repeat
write('Номер строки 1-',n,' i=');
readln(i);
until i in [1..n];
repeat
write('Номер столбца 1-',m,' j=');
readln(j);
until j in [1..m];
if i<>n then
 begin
  for t:=1 to m do
  for p:=i to n-1 do
  a[p,t]:=a[p+1,t];
 end;
n:=n-1;
if j<>m then
 begin
  for t:=1 to n do
  for p:=j to m-1 do
  a[t,p]:=a[t,p+1];
 end;
m:=m-1;
writeln('Удаление строки и столбца:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
end;
var n,m,i,j:byte;
    a:matrix;
    f:text;
begin
clrscr;
Vvod(f,a,n,m);
Udalenie(a,n,m,i,j);
readln
end.

read(f,n,m);//читаем размеры матрицы(первые 2 числа)