Составить программу, удаляющую в файле текст после первой точки - Pascal ABC

Формулировка задачи:

Составить программу, удаляющую в файле текст после первой точки

Решение задачи: «Составить программу, удаляющую в файле текст после первой точки»

Листинг программы

uses crt;
var fl1:text;a:string;
    i,l,poz:longint;label m;
 begin
  clrscr;
    assign(fl1,'input.txt');
    reset(fl1);
    readln(fl1,a);
    close(fl1);
     l:=length(a);
    rewrite(fl1);
     for i:=1 to l do if a[i]='.'then begin poz:=i;goto m; end;
   m:for i:=1 to poz do write(fl1,a[i]);
    close(fl1);
 end.

Объяснение кода листинга программы

В начале объявляются необходимые переменные: fl1 (файл), a (строка), i (переменная для счётчика), l (переменная для хранения длины строки), poz (переменная для хранения позиции первой точки).
Затем происходит очистка экрана с помощью функции clrscr.
Далее открывается файл 'input.txt' с помощью функции assign и считывается строка в переменную a с помощью функции readln.
После этого файл закрывается с помощью функции close.
В цикле for перебираются символы строки a. Если текущий символ - точка ('.'), то переменной poz присваивается значение i, и программа переходит к метке m.
В цикле m переписывается содержимое файла fl1, при этом в строку записываются только символы до позиции poz.
После окончания цикла m файл fl1 закрывается с помощью функции close.