Строки+фалы в паскале

[shadezx]

Скопировать в файл F2 только четные строки из F1. Подсчитать количество слов в F2.файл F1 не менее, чем из 10 строк
подскажите алгоритм поиска нечетных строк.

[ZX Spectrum-128]

While not eof(f1) do
  Begin
    Readln(f1,s);
    Writeln(f2,s);
    Readln(f1,s);
  End;

[shadezx]

Сообщение от ZX Spectrum-128

While not eof(f1) do
  Begin
    Readln(f1,s);
    Writeln(f2,s);
    Readln(f1,s);
  End;

ето алгоритм записи нечетных строк?

[ZX Spectrum-128]

Да это нечетные. А вам надо было копировать четные. Writeln ниже передвиньте на строку