zadach22.PAS

{* Задача 22 *}

Unit ZADACH22;
Interface
Implementation
Begin
 writeln('Составить программу, удаляющую в файле текст после первой точки');
End.

Program pas12828;
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  fl1 : text;
  a   : String;
  i   : longint;
  l   : longint;
  poz : longint;
Begin
  clrscr; {* Очистка экрана *}
  assign(fl1, 'input.txt'); {* Связывание fl1 с файлом 'input.txt' *}
  reset(fl1); {* Чтение из файла через переменную fl1 *}
  readln(fl1, a);
  close(fl1); {* Закрытие файла *}
  l := length(a);
  rewrite(fl1); {* Запись в файл через переменную fl1 *}
  For i := 1 To l Do {* Переменная i увеличивается с 1 до l *}
    If a[i] = '.' Then
    Begin
      poz := i;
      Goto m;
    End;
  m:
  For i := 1 To poz Do {* Цикл для i => [1 .. poz] *}
    write(fl1, a[i]);
  close(fl1); {* Закрытие файла *}
End.