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

[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, я где-то видела, что усекает размер файла до текущей позиции. Можно ли так вообще делать в этом случае?

[Eichhorn]

Вот конечный результат задачи, вроде бы работает):

var
  f: file of integer;
  i,c,s,write_pos,save_pos: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);
  write(f,c);

  seek(f, filesize(f) div 2);
  write_pos := 0;

  while not eof(f) do
  begin
  read(f, c);
  save_pos:=filepos(f);
  seek(f,write_pos);
  write(f, c);
  inc(write_pos);
  seek(f, save_pos);
  end;

  seek(f,filesize(f) div 2);
  truncate(f);
  seek(f,0);
  while not eof(f) do
  begin
  read(f,c);
  writeln©;
  end;
  readln;
end.