[Aristarh Dark]

вот так чтоль?

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  alphabet: array [1..36] of char =
  ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L',
   'M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var
  q,w,e,r:integer;
begin
  try
    for q := Low(alphabet) to High(alphabet) do
      for w := Low(alphabet) to High(alphabet) do
        for e := Low(alphabet) to High(alphabet) do
          for r := Low(alphabet) to High(alphabet) do
            Write(alphabet[q]+alphabet[w]+alphabet[e]+alphabet[r]+'->');
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.