[v1s2222]

Код:

function pass: String;
const
PassLen=10;
Var
  Pass: String;
  i: Integer;
begin
  Randomize;
 Pass := '';
 for i := 1 to PassLen do
  case Random(3) of
    0: Pass := Pass + Chr(65+Random(26));
    1: Pass := Pass + Chr(97+Random(26));
    2: Pass := Pass + Chr(48+Random(10));
  end;
  Result :=pass;
end;