подскажите пожалуйста пример программы генерирования паролей на 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.