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

program z41;

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

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.