Выбрать любой элемент матрицы и удалить строку, где он находится

var
  a: array [1..6, 1..3] of integer;
  i, j: integer;
 
begin
  writeln('vvestu matricu');
  for i := 1 to 6 do
    for j := 1 to 3 do
      read(a[i, j]);
  writeln('pochatkova matrica');
  for i := 1 to 6 do
  begin
    for j := 1 to 3 do write(a[i, j]:3);
    writeln;
  end;
  writeln('vvestu dovilnui element matrici');
  writeln('vvedit riadok');
  readln(i);
  while i > 6 do 
  begin
    writeln('riadok ne isnue');
    writeln('vvedit nomer riadka znov');
    readln(i);
  end;
  writeln('vvedit stovpec');
  readln(j);
  while j > 3 do 
  begin
    writeln('stovopec ne isnue');
    writeln('vvedit nomer stovpcia znov');
    readln(j);
  end;
  writeln('vubranui element matric');
  writeln(a[i, j]);
  
  
end.

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('Èñõîäíàÿ ìàòðèöa: ');
 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.