Подскажите пример программы генерирования паролей на pascal

uses crt;
var s:string;
      i,k:byte;
begin
 randomize; s:='';
for i:=1 to 10 do
 begin
  repeat
   k:=48+random(75);
   until k in [48..57,97..122];
  s:=s+chr(k);
 end;
write(s);
end.