Retězec – Delphi – Fórum – Programujte.com

Jak udělat vyskytuje-li se v textu třeba otazník aby se celá věta zapsala do souboru.(program začíná: připojil jsem soubor,přečetl a teď chci aby mi vypsal do souboru věty,které obsahují znak otazník)..tu proceduru pos mám použitou zcela špatně asi co?to progdan:Jo a dík za to předtím.

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

begin

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

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

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

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

    while not eof(f) do

        begin

          readln(f,i);

          if length(i)>20 then writeln(f1,i) else writeln(f2,i);

          if pos('?',i)>0 then writeln(f3);

        end;

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

end.

funkce pos vypadá, že je použita dobře, problém je ale ve writeln(f3), kde chybí jeden parametr (asi i)

jinak bych ale měl několik výtek:
proměnné je dobré pojmenovat si podle obsahu nebo aspoň podle typu (takže i integer, r real, s string, ...)
chybí ti tam kontrola existence souboru f, pokud by náhodou neexistoval, vyhodí ti to chybu
(bude to fungovat pouze za předpokladu, že na každém řádku je právě jedna věta)