Удаление строк и столбцов из матрицы

type mtr=array[1..10,1..10] of real;
procedure RemRc(var a:mtr;var m,n:integer;k,l:integer);
var i,j,p,q:integer;
    r,c:set of byte;
begin
if(k>m)or(l>m) then
 begin
  writeln('Матрица не изменяется');
  halt;
 end;
//определим и запомним номера строк и столбов для удаления
r:=[];
c:=[];
for i:=1 to m do
for j:=1 to n do
if a[i,j]=a[k,l] then
 begin
  include(r,i);
  include(c,j);
 end;
//Удаление строк
i:=m;
while i>=1 do
if i in r then
 begin
  if i<m then
  for p:=i to m-1 do
  for j:=1 to n do
  a[p,j]:=a[p+1,j];
  m:=m-1;
  i:=i-1;
 end
else i:=i-1;
if m=0 then
 begin
  write('Все элементы удалены');
  halt
 end;
//Удаление столбцов
j:=n;
while j>=1 do
if j in c then
 begin
  if j<n then
  for p:=j to n-1 do
  for i:=1 to m do
  a[i,p]:=a[i,p+1];
  n:=n-1;
  j:=j-1;
 end
else j:=j-1;
writeln('n=',n);
if n=0 then
 begin
  write('Все элементы удалены');
  halt
 end;
 end;
var a:mtr;
    m,n,k,l,i,j:integer;
    b:real;
begin
repeat
writeln('Введите размер матрицы m,n от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Введите элементы матрицы, вещественные числа');
//при рандомном вводе не будет одинаковых чисел
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Введенная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5:2);
  writeln;
 end;
repeat
writeln('Введите индекс элемента для сравнения k,l>0');
readln(k,l);
until(k>0)and(l>0);
b:=a[k,l];
RemRc(a,m,n,k,l);
if(m>0)or(n>0)then
 begin
  writeln('Удаление строк и столбов с элементом ',b:0:2);
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:5:2);
    writeln;
   end;
 end;
end.