Удалить из файла каждый второй символ - Turbo Pascal (30424)

type fchar = file of char;
 
const nam = '1.txt';
 
var i: longint;
    s: string;
    c: char;
    f: fchar;
 
procedure file_prn(s: string; var t: fchar);
var c: char;
begin
  writeln(s);
  reset(t);
  while not eof(t) do
    begin
      read(t, c);
      write(c)
    end;
  writeln;
  writeln
end;
 
begin
  assign(f, nam);
  writeln('Введите содержимое символьного файла, можно в несколько строк,');
  writeln('окончание ввода - пустая строка.');
  rewrite(f);
  repeat
    readln(s);
    for i := 1 to length(s) do write(f, s[i])
  until length(s) = 0;
  file_prn('Исходный файл (' + nam + '):', f);
  for i := 1 to (filesize(f) - 1) div 2 do
    begin
      seek(f, i * 2);
      read(f, c);
      seek(f, i);
      write(f, c)
    end;
  truncate(f);
  file_prn('Преобразованный файл:', f);
  close(f);
  write('Нажмите <Enter> для выхода из программы.');
  readln
end.