Прерывание генерации перестановок

[Goombold]

Имеется алгоритм. Вот он:

uses crt;

const n = 7;

type tp=array[1..n] of integer;

procedure vivod(var a:tp); var i:word;
begin for i:=1 to n do write(a[i]:4);
writeln; end;

{procedure stop; var c:char; begin c:=readkey; if c=#27 then halt; end;
 }

procedure generate(var a:tp; l,r:integer; var k:longint);  var i,v:integer; f:text;
begin
 if (l=r) then begin inc(k); write('k=',k:3); vivod(a); end
    else
      begin
        for i := l to r do
          begin
           v:=a[l]; a[l]:=a[i]; a[i]:=v;
           generate(a,l+1,r,k);
           v:=a[l]; a[l]:=a[i]; a[i]:=v;
          end;
       end;

Требуется написать процедуру прерывания, т.е завершить генерацию, запомнить последнюю строку. А при последующем запуске программы продолжить генерацию с этой строки.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.