Массив. Вставить последнюю строку после строки, в которой находится заданное число К

uses crt;
type ma=array[1..10,1..10] of integer;
 
var m:ma;
i,j,n,a:integer;
k:longint;
 
BEGIN
  randomize;
  Write('Введите K: ');
  readln(k);
  for i:=1 to 10 do 
    begin
      for j:=1 to 10 do 
        begin
          m[i,j]:=random(9);
        end;
    end;
  for i:=1 to 10 do 
    begin
      n:=0;
      for j:=1 to 10 do 
        begin
          if (m[i,j]=1) then n:=1;
            write (m[i,j], ' ');
        end;
      if (n=1) then
        begin
          writeln(' ');
          for a:=1 to 10 do 
            begin 
              write(m[10,a], ' ');
            end;  
        end;
      writeln;
    end;
END.

uses crt;
const n=10;
var a : array[1..n, 1..n] of integer;
    i, j : byte;
    k : integer;
 
procedure input;
begin
    writeln('Заданая матрица:');
    for i:=1 to n do begin
    for j:=1 to n do begin
    a[i, j]:=random(100)-50; write(a[i,j]:5);
    end;
    writeln;
    end;
    writeln('Введите k');
    readln(k);
end;
 
procedure output;
var l : boolean;
    r : byte;
begin
    writeln('Обработаная матрица:');
    for i:=1 to n do begin
        l:=false;
    for j:=1 to n do begin
        write(a[i, j]:5);
        if a[i, j]=k then l:=true;
    end;
        if l=true then begin
           writeln;
           for r:=1 to n do write(a[n, r]:5);
        end;
    writeln;
    end;
end;
 
begin
    randomize;
    input;
    output;
end.

uses crt;
const nmax=10;
type ma=array[1..2*nmax,1..nmax] of integer;
procedure vvod(var a:ma;var m,n:integer);
var i,j:integer;
begin
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
for i:=1 to m do
 begin
  for j:=1 to n do
  a[i,j]:=random(100);
 end;
end;
procedure vyvod(a:ma;m,n:integer;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to m do
 begin
  for j:=1 to n do
  write (a[i,j]:4);
  writeln
 end;
end;
procedure obrab(var a:ma; var m:integer;n,k:integer);
var i,j,p:integer;
    f:boolean;
    b:array[1..nmax] of integer;
begin
for i:=1 to n do  //запомним последнюю строку
b[i]:=a[m,i];
i:=1; //начнем сверху
while i<=m do //пока не конец
 begin
  j:=1; //ищем число к в строке
  f:=false;
  while(j<=n)and not f do
  if a[i,j]=k then f:=true
  else j:=j+1;
  if f then //если нашли
   begin
    for j:=1 to n do //сдвигаем  нижние строки на 1 вниз
    for p:=m+1 downto i+2 do
    a[p,j]:=a[p-1,j];
    for j:=1 to n do //вставляем запомненную
    a[i+1,j]:=b[j];
    m:=m+1;//увеличим число строк
    i:=i+2 //перешагнемчерез вставленную
   end
  else i:=i+1;//нет к, дальше
 end;
end;
var a:ma;
    m,n,k:integer;
begin
randomize;
vvod(a,m,n);
vyvod(a,m,n,'Исходная матрица');
write('Введите число для поиска K=');
read(k);
obrab(a,m,n,k);
vyvod(a,m,n,'Вставка последней строки');
end.