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

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

[volvo]

Глюк паскаля?

Глюк IDE Паскаля, если точнее. Потому что в сообщении, которое тебе показывается, явно написано, что произошла внутренняя ошибка и IDE будет закрыта (там еще какой-то сигнал упоминается, то ли 111 то ли 117, не помню уже). В 2.4.2 этот баг вроде пофиксили, я его не встречал ни разу с момента выхода новой версии.

Обнови FPC, твоя 2.2.4 устарела

Добавлено через 5 мин.

вроде бы работает):

Вроде бы. Но write_pos и save_pos должны быть описаны как LongInt, а не как integer. Иначе при больших файлах (больше чем 32К) в зависимости от режима компиляции может быть разное поведение.