процедура RemoveRowCol

uses crt;
const nmax=15;
type mtr=array[1..nmax,1..nmax] of integer;
procedure RemoveRowCol(var a:mtr;var m,n:byte;k,l:byte);
var i,j:byte;
begin
if(k>m)or(l>n) then
writeln('Матрица не изменяется')
else
 begin
  for i:=k to m-1 do
  for j:=1 to n do
  a[i,j]:=a[i+1,j];
  m:=m-1;
  for j:=l to n-1 do
  for i:=1 to m do
  a[i,j]:=a[i,j+1];
  n:=n-1;
  writeln('Удаление строки ',k,' и столбца ',l);
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln
   end
 end
end;
var a:mtr;
    m,n,k,l,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
repeat
write('Номер строки k>0 k=');
readln(k);
until k>0;
repeat
write('Номер столбца l>0 l=');
readln(l);
until l>0;
RemoveRowCol(a,m,n,k,l);
readln
end.