Файлы, удалить все нулевые компоненты Опции

[freak]

В общем задачка... Ввести файл F целых чисел и выдать его на печать. Удалить из него все компоненты, равные нулю (вспомагательный файл не использовать). Решите плз, очень прошу...

[Sozialist]

Ну а какие тогда структуры использовать? Я не встречался с подобным переполнением.

[Lapp]

А никакие . Только сам файл.
Можно, например, так:

var
  f:file of integer;
  i,j,k,s:LongInt;
  z:boolean;

begin
  Assign(f,'t');
  ReSet(f);
  i:=0;
  j:=0;
  z:=false;
  s:=FileSize(f);
  while j<s do begin
    Seek(f,j);
    Read(f,k);
    if k<>0 then begin
      if z then begin
        Seek(f,i);
        Write(f,k)
      end;
      Inc(i)
    end
    else z:=true;
    Inc(j);
  end;
  Seek(f,i);
  Truncate(f);
  Close(f)
end.