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

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