Генератор паролей

program PasswordProject;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
const
  LAT = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';  // массив латинских прописных букв
  RUS = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';  // массив русских строчных букв
  LengthLAT = 2;          // кол-во латинских букв в пароле
  LengthRUS = 7;          // кол-во русских букв в пароле
  LengthNUM = 1;          // кол-во цифр в пароле
  MAX_NUMBER = 9;         // максимальное цифровое число в пароле
var
  i: integer;   // переменная для счетчика
  password: string;  // переменная для хранения пароля
begin
  // Устанавливаем генератор случайного числа на следующее значение
  Randomize;
  // обнуляем пароль
  password:='';
 
  // генерируем латинские символы в начале
  for I := 0 to LengthLAT-1 do
    Password:=Password+copy(LAT,Random(Length(LAT)-1)+1,1);
 
  // далее генерируем русские символы
  for I := 0 to LengthRUS-1 do
    Password:=Password+copy(RUS,Random(Length(RUS)-1)+1,1);
 
  // генерация цифр в конце
  for I := 0 to LengthNUM-1 do
    Password:=Password+IntToStr(Random(MAX_NUMBER));
 
  // выодим результат на экран
  WriteLn('Пароль: '+Password);
  // задержка вывода, чтобы посмотреть результат
  ReadLn;
end.