password generator

program genpassword;
uses crt;
var
password, key, buk:string;
i, c, b, d:integer;
begin
buk:='qwertyuiopasdfghjklzxcvbnm';
  clrscr;
  write('числел в пароле: ');
  readln(c);
  writeln('1)только числа');
  writeln('2)только буквы');
  writeln('3)смешанно');
  readln(b);
  if b = 2 then
    for i := 1 to c do begin
      d:=random(26);
      if d = 0 then d := 1;
      password:=password + copy(buk,d, 1);
    end;
  if b = 1 then
    for i := 1 to c do begin
      password:=password+ random(10);
    end;
  if b = 3 then
    for i := 1 to c do begin
      if random(2) = 0 then
        password:=password+ random(10)
      else begin
        d:=random(26);
        if d = 0 then d := 1;
        password:=password + copy(buk,d, 1);
      end;
    end;
    writeln('ваш пароль: ',password);
  readln;
end.