Задана матрица размерностью 6 х 3. Выбрать любой элемент матрицы a[i,j] и удалить строку, где он находится- Pascal(Паскаль)

Uses
 CRT;
Const
 mmax=6;
 nmax=3;
var
 B:array [1..mmax,1..nmax] of integer;
 k,ind,i,j,m,n:integer;
begin
n:=nmax;
m:=mmax;
 randomize;
 writeln('=: ');
 for i:=1 to m do
 begin
  for j:=1 to n do
  begin
   b[i,j]:=random(10)-3;
   write(b[i,j]:3);
  end;
  writeln;
 end;
writeln;
write('k: ');
readln(k);
for i:=m downto 1 do
 for j:=1 to n do
  if b[i,j]=k then
  begin
   ind:=i;
  end;
writeln(ind);
if ind<>0 then
begin
m:=m-1;
for i:=ind to m do
for j:=1 to n do
 b[i,j]:=b[i+1,j];
 writeln('Удален элемент: ');
end
else
 writeln('Не удален элемент: ');
for i:=1 to m do
begin
 for j:=1 to n do
 begin
  write(b[i,j]:3);
 end;
writeln;
end;
readkey
end.