Последовательная генерация строк(с началом из определённой точки)

[vlad.md]

Доброго времени суток, дорогие коллеги!
И сразу от слов к делу:
У меня есть код который последовательно генерирует строку:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
     line = 'qwertyuioplkjhgfdsazxcvbnm0123456789';

procedure generate(S: string; n: integer);
var
 i: integer;
begin
 for i := 1 to Length(line) do
   begin
    s[n] := line[i];
    if n = 1 then
     writeln(s)
    else
     generate(s, n - 1);
  end;
end;

begin
  generate('qwer', Length('qwer'));
end.

Строки генерируются последовательно(как мне и надо), но вот мне понадобилось сделать так, чтобы можно было продолжить с определённого места(строки).Какие будут предложения?
Заранее благодарен!

[Serge_Bliznykov]

procedure generate(S: string; n: integer);

запомнить строку S и шаг итерации n.
при следующем запуске вызвать процедуру generate,
передав в процедуру запомненные значения.
всё.

[BDA]

Serge_Bliznykov, не соглашусь. Программа рекурсивно спускается и редактирует строчку. Самым простым способом будет запомнить стек вызовов, но я не знаю, как это сделать.

Нужно модифицировать саму процедуру, т.к. нужно «достроить» конец строки.

Приду домой - подумаю еще.

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils, windows;

const
  line = 'qwertyuioplkjhgfdsazxcvbnm0123456789';

var
  start: string;

function KeyPressed: Boolean;
var
  lpNumberOfEvents: DWORD;
  lpBuffer: TInputRecord;
  lpNumberOfEventsRead: DWORD;
  nStdHandle: THandle;
begin
  Result := false;
  // get the console handle 
  nStdHandle := GetStdHandle(STD_INPUT_HANDLE);
  lpNumberOfEvents := 0;
  // get the number of events 
  GetNumberOfConsoleInputEvents(nStdHandle, lpNumberOfEvents);
  if lpNumberOfEvents <> 0 then
  begin
    // retrieve the event 
    PeekConsoleInput(nStdHandle, lpBuffer, 1, lpNumberOfEventsRead);
    if lpNumberOfEventsRead <> 0 then
    begin
      if lpBuffer.EventType = KEY_EVENT then // is a Keyboard event? 
      begin
        if lpBuffer.Event.KeyEvent.bKeyDown then // the key was pressed? 
          Result := true
        else
          FlushConsoleInputBuffer(nStdHandle); // flush the buffer 
      end
      else
        FlushConsoleInputBuffer(nStdHandle); // flush the buffer 
    end;
  end;
end;

procedure generate(S: string; n: integer; var start: string);
var
  i, k: integer;
begin
  if KeyPressed then
    exit;
  k := pos(start[n], line);
  if k < 1 then
    k := 1;
  for i := k to Length(line) do
  begin
    S[n] := line[i];
    start[n] := '*';
    if n = 1 then
      writeln(S)
    else
      generate(S, n - 1, start);
  end;
end;

begin
  start := '12321';
  generate('*****', Length('*****'), start);
  readln;
end.

В строке start задается последний сгенерированный пароль, либо символы * ("пустые" символы).
Вроде работает

[vlad.md]

BDA, спасибо большое!)
P.S. тему можно закрывать.