Сап б, срочно, итт призываются мамкины поскалегромисты, найдите мне бесконечный цикл в коде. С меня рандом пики.точеные
хуй отсосу, все как полагается

[CODE]
program lab3;
uses crt;
type mas = array['a'..'z'] of boolean;
const lat = ['A'..'Z', 'a'..'z'];
procedure Info;
begin
writeln('В исходном текстовом файле записаны строки, содержащие произвольные алфавитно-цифровые символы.');
writeln('Требуется написать программу, которая для каждой строки исходного файла будет выводить в результирующий файл последовательность строчных английских букв (“a”, “b”, … ”z”) из входной последовательности и частоты их повторения.');
writeln('Печать должна происходить в алфавитном порядке.');
end;

procedure Alphabet(s:string; var b:mas);
var ch:char;
i:integer;
begin
i:=1;
for ch:='a' to 'z' do
b[ch]:=false;
while i<=length(s) do begin
b:=true;
i:=i+1;
end;
end;

procedure Main(s:string; var sres1:string);
var i,rs,j:integer;
b:mas;
sres:string;
begin
sres:=''; i:=1; rs:=0; j:=0;
while i<=length(s) do begin
if (s in lat) then begin
s:=lowcase(s);
for j:=1 to length(s) do begin
if (s = s[j]) then begin
rs:=rs+1;
sres:=sres+s+'-'+rs;
end;
rs:=0;
end;
i:=i+1;
end;
end;
Alphabet(sres, b);
end;






procedure FileToFile(var f1, f2:text);
var s, sres:string;
begin
reset(f1); rewrite(f2);
while not eof(f1) do begin
readln(f1,s);
if s<>'' then begin
Main(s, sres);
end
else sres:='';
writeln(f2,sres);
end;
close(f1); close(f2);
end;

var f1,f2:text;
f1name, f2name:string;

begin
Info;
writeln('Введите имя исходного файла');
readln(f1name);
f1name:=f1name+'.txt';
if fileexists(f1name) then begin
writeln('Введите имя результирующего файла');
readln(f2name);
f2name:=f2name+'.txt';
assign(f1,f1name);
assign(f2, f2name);
FileToFile(f1,f2);
writeln('Good Job!');
end
else writeln('Файл не найден');
end.

[/CODE]