Расписать работу программы поэтапно в соответствии с кодом программы

program lab;
 
uses  crt;
var
  n, k: integer;
 
type
  t_razm = array[1..9]of byte;
 
var
  a: t_razm;
  m: set of 1..9;
 
procedure write_razm(const a: t_razm);
var
  i: byte;
begin
  for i := 1 to k do
    write(a[i], ' ');
  write('  ');
end;
 
procedure razmeshenie(i: byte);
var
  x: byte;
begin
  for x := 1 to n do
    if x in m
        then
    begin
      a[i] := x;
      if i = k
        then write_razm(a)
                else
      begin
        exclude(m, x);
        razmeshenie(i + 1);
        include(m, x)
      end;
    end
end;
 
begin
  clrscr;
  writeln('Введите m : ');
  read(n);
  writeln('Введите n : ');
  read(k); 
    m := [1..n];
  razmeshenie(1);
  writeln; 
  readln;
end.

var   a:array[1..300] of integer;
      index,n,p : integer;
 
procedure generate (l,r:integer; var k:integer);
var i,v:integer;
begin
      if (l=r) then
      begin
        for i:=1 to n do write(a[i],' ');
        k:=k+1;
        if k=3 then
         begin
          writeln;
          k:=0;
         end else
         begin
          write (' ');
         end;
      end else
      begin
        for i := l to r do begin
           v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[j]}
           generate(l+1,r,k);              {вызов новой генерации}
           v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[j]}
        end;
      end;
end;
 
begin
      writeln ('Введите количество элементов перестановки');
      readln(n);
      writeln ('Введите элементы');
      for index:=1 to N do read(A[index]);
      p:=0;
      writeln ('Полученные перестановки:');
      generate( 1,n,p);
end.