Строки паскль

[shadezx]

из файла f1 найти парные строки и записать их у f2.Я сделал с непарными, подскажите как сделать с парними.
вот пример с непарными

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
f1,f2:text;
s:string;
begin
assignFile(f1,'input.txt');
assignFile(f2,'output.txt');
reset(f1);
rewrite(f2);
While not eof(f1) do
Begin
    Readln(f1,s);
    Writeln(f2,s);
    Readln(f1,s);
  End;
  close(f1);
  close(f2);
end.

[ZX Spectrum-128]

Begin
    Readln(f1,s);
    Readln(f1,s);
    Writeln(f2,s);
  End;

[Poma][a]

Begin
    Readln(f1,s);
    Readln(f1,s);
    Writeln(f2,s);
  End;

Что? Говорят, условие читать - дело полезное

[ZX Spectrum-128]

Лопухнулся? Вроде как четные строки читаю.


Пишу , то есть