Чёто не то что надо тут

Надо чтоб перепмсывался в другой файл КАЖДЫЙ 3 символ во всём файле.
Даёт результат с первой строчки и всё....

Нажмите для просмотра прикрепленного файла

Я бы сделал так:

const every = 3;
var
  ch: char;
  curr: integer;
...
while not seekeof(f1) do begin
  read(f1,ch); { <--- Читаешь символ }

  if not(ch in [#13, #10]) then inc(curr); { если НЕ перевод строки, то увеличиваешь счетчик }

  if ch = #13 then writeln(f2); { если был перевод строки - делаешь перевод и в файл-результат }

  if curr mod every = 0 then write(f2, ch) { счетчик кратен 3 - записать в файл... }
end;
...

Спасибо