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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.