---

program EmployeeNamesWithPasswords;

uses crt, SysUtils;

var
  numEmployees, i: Integer;
  names: array of string;
  passwords: array of string;

function GeneratePassword(const surname: string): string;
var
  randomNumbers: string;
  randomChars: string;
  j: Integer;
begin
  randomNumbers := '';
  randomChars := '';


  for j := 1 to 3 do
  begin
    randomNumbers := randomNumbers + IntToStr(Random(10));
  end;


  for j := 1 to 5 do
  begin
    randomChars := randomChars + Chr(Random(26) + 65 + Random(2) * 32);
  end;


  GeneratePassword := surname + randomNumbers + randomChars;
end;

function IsValidSurname(const surname: string): Boolean;
begin
  IsValidSurname := (surname <> '');
end;

begin
  Randomize;
  clrscr;


  numEmployees := 15; 
  SetLength(names, numEmployees);
  SetLength(passwords, numEmployees);


  names[0] := 'Анджелини Давид Робертович ';
  names[1] := 'Асядовский Станислав Александрович ';
  names[2] := 'Бабич Вадим Александрович ';
  names[3] := 'Бесанец Алексей Александрович ';
  names[4] := 'Ванян Ростислав Сергеевич ';
  names[5] := 'Вислоухов Кузьма Сергеевич ';
  names[6] := 'Грек Роман Сергеевич ';
  names[7] := 'Груша Юрий Викторович ';
  names[8] := 'Гурский Егор Юрьевич ';
  names[9] := 'Давидовский Иван Михайлович ';
  names[10] := 'Данильчик Елизавета Геннадьевна ';
  names[11] := 'Дмитрук Яна Евгеньевна ';
  names[12] := 'Доброва Анна Андреевна ';
  names[13] := 'Ермаченко Александра Юрьевна ';
  names[14] := 'Симонович Роман Дмитриевич ';


  for i := 0 to numEmployees - 1 do
  begin
    if IsValidSurname(names[i]) then
      passwords[i] := GeneratePassword(names[i])
    else
      passwords[i] := 'Недействительная фамилия'; 
  end;


  WriteLn('Список фамилий и паролей сотрудников:');
  for i := 0 to numEmployees - 1 do
  begin
    WriteLn(Format('%d: %s - %s',  [i + 1, names[i], passwords[i]]));
  end;

  ReadLn; 
end.