6. Удалить в файле Two текст после первой точки. Опции

[Гурик]

6. Удалить в файле TWO текст после первой точки. :molitva:

[Altair]

var
 f:file of byte;
 i:byte;
c:boolean;
begin
 c:=false;
 assign(f,'two');
 reset(f);
 repeat
  read(f,i);
  if i=ord('.') then begin  truncate(f) ; close(f); c:=true; end;
 until c=true;
end.

что-то типа того, проверь... у меня протсто нет компилера на компе, поэтому позволю се нарушить чуток правила и не проверить код перед тем как выложить...