ПАСКАЛЬКУЧАБАЛОВ напишите програму которая генерируте любое количество паролей любой длины из букв,цифр или и тогоо и другого. Надо красиво оформить

var l:char;i,n,a,k,m,d,q:integer;s:string; label z; begin randomize; writeln ('Введите количество паролей'); writeln ('Из чего состоят пароли?'); z:writeln ('1 - буквы 2 - цифры 3 - и буквы и цифры'); readln (a); if (a<>1)and (a<>2)and (a<>3)then begin writeln ('Неправильный ввод. Ввести заново (0 - да / 1 - нет)?'); read (q); if q=0 then goto z else halt; end else begin writeln ('Введите количество паролей: '); readln (n); writeln ('Введите длину пароля: '); readln (k); writeln ('Пароли:'); if a=1 then begin for i:=1 to n do begin for d := 1 to k do s:=s+chr(random(26)+97); writeln(s); s:=''; end; end; if a=2 then begin for i:=1 to n do begin for d := 1 to k do s := s + chr(random(10)+48); writeln(s); s:=''; end; end; if a=3 then begin for i:=1 to n do begin for d := 1 to k do s := s + chr(random(26)+97)+chr(random(10)+48); delete(s,k,k); writeln(s); s:=''; end; end; end; end.

Вот. Мой вариант генератора. program pr; var text:string;i,length,i2,i3,view,n:integer; begin randomize; write('Кол-во паролей: '); readln(n); writeln(); write('Длина одного пароля: '); readln(length); writeln(); writeln('Вид. 1 - буквы, 2 - цифры, 3 - буквы и цифры'); write('Ответ: '); readln(view); writeln(); case view of 1:begin for i:=1 to n do begin for i2:=1 to length do begin text:=text+chr(97+random(26)); end; writeln(text); text:=''; end; end; 2:begin for i:=1 to n do begin for i2:=1 to length do begin text:=text+chr(48+random(10)); end; writeln(text); text:=''; end; end; 3:begin for i:=1 to n do begin for i2:=1 to length do begin i3:=random(2); if i3=0 then text:=text+chr(48+random(10)); if i3=1 then text:=text+chr(97+random(26)); end; writeln(text); text:=''; end; end; else begin writeln('Неверный ввод'); end end; end.