KeyGen

uses
  System.IO;

const
  TXT_KEY_FILE = 'keys.txt';
  SYMBOLS: array of char = ('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', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9');

begin
  var file1 := OpenWrite(TXT_KEY_FILE);
  var count := ReadLnInteger('Необходимое количество ключей:');
  for var i := 1 to count do
  begin
    var temp := '';
    for var j := 1 to 12 do
    begin
      temp += SYMBOLS[Random(SYMBOLS.Length)];
      if (j mod 4 = 0) and (j <> 12) then temp += #45;
    end;
    file1.Write(temp, newLine);
  end;
  file1.Close;
end.