Типизированные файлы Опции

[Eichhorn]

Есть задача: дан типизированный файл целых чисел, содержащий чётное количество элементов. Удалить из данного файла первую половину элементов.
Вот если бы нужно было удалить вторую половину, то я бы даже не заморачивалась... А так у меня вот какой бред вышел:

var
  f,f1: file of integer;
  i,c,s:integer;

begin
  s:=0;

  assign(f,'C:\pas\asd3.bin');
  rewrite(f);

  write(f,21);
  write(f,0);
  write(f,-76);
  write(f,90);
  write(f,78);
  write(f,45);
  write(f,90);
  write(f,43);
  close(f);

  reset(f);
  read(f,c);

  while not eof(f) do
  begin
    read(f,c);
    s:=s+1;
    writeln©;
  end;
  seek(f,s-1);
  truncate(f);
  reset(f);

  read(f,c);
  close(f);
  readln;
end.

truncate, я где-то видела, что усекает размер файла до текущей позиции. Можно ли так вообще делать в этом случае?