Počet čísel – Delphi – Fórum – Programujte.com

Potřebuji aby se mi v tomto programu kde dochází k roztřiďování na čísla sudá,lichá a čísla dělitelná 5,napsal do každého souboru počet zapsaných čísel...nemáte nápad jak to provést??Když tam dám writeln(f1,'Pocet lichých čísel je : ',i); tak mi to napíše jenom poslední číslo ze vstupního souboru

var f,f1,f2,f3:textfile;i:integer;

begin

             assignfile(f,'c1.txt'); reset(f);

             assignfile(f1,'liche.txt'); rewrite(f1);

             assignfile(f2,'sude.txt'); rewrite(f2);

             assignfile(f3,'petkou.txt'); rewrite(f3);

             while not eof(f) do

             begin

                 read(f,i);

                 if i mod 2=0 then writeln(f2,i) else writeln(f1,i);

                 if i mod 5=0 then writeln(f3,i);

             end;

            writeln(f1,'Pocet lichých čísel je : ',i);     

            closefile(f); closefile(f1); closefile(f2);closefile(f3);

end.

Tohle?

var f,f1,f2,f3:textfile;

     i, suda, licha, pet:integer;

begin

             suda := 0;

             licha := 0;

             pet   := 0

             assignfile(f,'c1.txt'); reset(f);

             assignfile(f1,'liche.txt'); rewrite(f1);

             assignfile(f2,'sude.txt'); rewrite(f2);

             assignfile(f3,'petkou.txt'); rewrite(f3);

             while not eof(f) do

             begin

                 read(f,i);

                 if i mod 2=0 then begin  writeln(f2,i); inc(suda); end  else begin writeln(f1,i); inc(licha); end;

                 if i mod 5=0 then begin writeln(f3,i); inc(pet); end;

             end;

            writeln(f1,'Pocet lichých čísel je : ',licha);

            writeln(f2,'Pocet sudych čísel je : ', suda);  

            writeln(f3,'Pocet del. petkou čísel je : ',pet);    

            closefile(f); closefile(f1); closefile(f2);closefile(f3);

end.

To Jura:Jo dík!