Составить программу в паскале​

Вот. мой вариант генератора. 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.