Алгоритм перебора (Delphi)

[mutabor]

Air, так что-ли?
Алфавит правда я взял английский заглавные буквы, из-за разницы с русским по кол-ву символов 33 vs 26, в результате в конце немного мусора. Чтобы сделать с русским нужно будет немного пошаманить с условием, русские маленькие буквы разбиты в кодировке на две части, насчет больших не помню. 55 в коде - это начало заглавных англ. букв.

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  i_str, j_str: string;
  mas: array[0..42, 0..42] of string;
  s: string; //для проверки
begin
for i:=0 to 42 do
  for j:=0 to 42 do
    begin
      if i < 10 then i_str := IntToStr(i)
      else i_str := Chr(55 + i);
      if j < 10 then j_str := IntToStr(j)
      else j_str := Chr(55 + j);
      mas[j,i] := i_str + j_str;
    end;

//проверка отдельно чтобы код не загромождать
Memo1.Clear;
Memo1.ScrollBars:=ssBoth;
for i:=0 to 42 do
  begin
    s:='';
    for j:=0 to 42 do s:=s + mas[j,i] + ' ';
    Memo1.Lines.Add(s);
  end;
end;

[Air]

Mixasik
Ваш код, после поправки даже табуляцию начал перебирать (ошибся startpos не задал.)
mutabor
В принципе, да.

Спасибо, Вам за труды и за прекрасные коды.