Исправить программу

[sasharom97]

Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А[M,N], где M,N<=10. Удалить строку с номером К и столбец с номер. Нужно исправить программу, она должна удалить из массива A(N,M) последнюю строку и последний столбец, а она у меня просто обнуляет их.

const m=5;n=6;
type ar=array[1..m,1..n] of integer;
procedure input(var a:ar);
var i,j : integer;
begin
for i:=1 to m do
  for j:=1 to n do
   a[i,j]:=random(20)-10;
end; 
procedure out(var a:ar);
var i,j : integer;
begin
for i:=1 to m do
 begin
  for j:=1 to n do write(a[i,j]:4); 
  writeln;
 end;
end; 
procedure p1(var a:ar;k:byte);
var i,j : integer;
begin
for j:=1 to n do 
 for i:=k to m-1 do a[i,j]:=a[i+1,j]; 
for j:=1 to n do a[m,j]:=0;
end; 
procedure p2(var a:ar;l:byte);
var i,j : integer;
begin
for i:=1 to m do 
 for j:=l to n-1 do a[i,j]:=a[i,j+1]; 
for i:=1 to m do a[i,n]:=0;
end; 
 
var a : ar; k,l : integer;
begin
Randomize;
write('k=');readln(k); 
write('l=');readln(l); 
input(a);
out(a);
p1(a,k);
writeln('Полученный массив:');
out(a);
writeln;
p2(a,l);
writeln('Полученный массив:');
out(a);
end.

[Aleksandr H.]

А такой вариант не подходит:
1. ввести матрицу 5х6
2. вывести матрицу 4х5 без каких-либо действий ?

[sasharom97]

Сообщение от Aleksandr H.

А такой вариант не подходит:
1. ввести матрицу 5х6
2. вывести матрицу 4х5 без каких-либо действий ?

нет, не подходит