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

var s:string[17];
    i,j:byte;
begin
randomize;
for i:=1 to 10 do
 begin
  s:='';
  for j:=1 to 17 do
  if j in [6,12] then s:=s+'-'
  else s:=s+chr(65+random(26));
  writeln(s);
 end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
    s : string;
begin
 Randomize;
 s := '';
 for i := 1 to 3 do
  begin
   for j := 1 to 5 do
     s := s + Chr(65 + Random(25));
   if(i <> 3) then s := s + '-';
  end;
 ShowMessage(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i     : integer;
    s, s1 : string;
    X     : set of byte;
    b     : byte;
begin
// X := [58..64, 91..96];
 X := [58..64];
 Randomize;
 s := '';
 for i := 1 to 3 do
  begin
   s1 := '';
   while Length(s1) < 5 do
    begin
//     b := 49 + Random(71);
     b := 49 + Random(41);
     if b in X then continue else s1 := s1 + Chr(b);
    end;
   s := s + s1;
   if(i <> 3) then s := s + '-';
 end;
 ShowMessage(s);
end;