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

[Гурик]

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

[volvo]

Altair, лишние переменные - зло

var
 f: file of char;
 i: char;
begin
 assign(f,'two');
 reset(f);
 repeat
   read(f, i);
   if i = '.' then begin
     truncate(f)
   end;
 until (i = '.') or (eof(f));
 close(f)
end.

Кроме этого, здесь корректно обрабатывается файл, в котором вообще нет точки :P