Файлы, Каждый второй символ Опции

[Anastacia Adesso]

Наверное немного глупый вопрос.

Нужно, чтоб из одного файла в другой записывался каждый второй символ.
Пока что не знаю, как это сделать.
Тока что начали проходить эти файлы
А вы знаете?
 UZD4.PAS ( 541 байт ) Кол-во скачиваний: 394


аааааа кажется надо вот так писать, да?

        while not eoln(f1)
        do begin
          read(f1,c);
          write(copy(c,2,1));
          write(f2,copy(c,2,1));
        end;