Szöveges állomány - példaprogram

program Doga;
var f, k, v: text;
    s: string;
    kerd: boolean;
begin
  Assign(f, 'doga.txt');
  Assign(k, 'kerd.txt');
  Assign(v, 'val.txt');
  Reset(f);
  Rewrite(k);
  Rewrite(v);
  while not Eof(f) do
    begin
      ReadLn(f, s);                                   {Egy sor beolvasása a dolgozatból}
      if s[1] in ['1'..'9'] then kerd := true;        {A sor első karaktere számjegy-e (kérdés)}
      if kerd then WriteLn(k, s) else WriteLn(v, s);  {Kiírás a megfelelő állományba} 
      if s[Length(s)] = '?' then kerd := false;       {Vége-e a kérdésnek} 
    end;
  Close(f);
  Close(k);
  Close(v)
end.