текстовый файл

uses crt;
var
f:text;
s:string;
i,k:byte;
begin
clrscr;
assign(f,'D:\FPC\lab11\lab11.txt');
reset(f);
while not eof(f) do
begin
read(f,s);
end;
close(f);
k:=1;
        for i:=1 to length(s) do
        begin
 
        if s[i]='.' then
              begin
                insert(#13#10,s,i+1);
                k:=1;
              end;
        if k=60 then
              begin
                insert(#13#10,s,i+1);
                k:=1;
              end;
 
        inc(k);
        end;
rewrite(f);
for i:=1 to length(s) do
write(f,s[i]);
close(f);
readln
end.

program zad3;
{$H-}
uses crt, fileutil, LConvEncoding;
var
f:text;
s,s1:string;
i,k,n,l:byte;
begin
clrscr;
assign(f,'12.txt');
reset(f);
while not(SeekEof(f)) do begin
readln(f,s);
s1:=s1+s;
end;
close(f);
k:=1;
for i:=1 to length(s1) do begin
        if s1[i+n]='.' then begin
                insert(#13#10,s1,i+1+n);
                k:=1;
                n:=n+1;
              end;
        if k=(60+l) then begin
                insert(#13#10,s1,i+1+n);
                k:=1;
                n:=n+1;
                l:=2;
              end;
          inc(k);
        end;
rewrite(f);
Write(f,s1);
closeFile(f);
end.