Код:
Код: Выделить всё
uses crt;
var
s: string;t1,t2:text;
i: integer;
o:char;
Begin
assign(t1,'text.txt');
repeat
rewrite(t1);
ReadLn(s);
writeln(t1,s);
close(t1);
reset(t1);
while not eof(t1) do begin
readln(t1,s);
i := 2;
while ((s[i] ' ') AND (s[i] ' .'))do begin
if s[i]='.' then
i:=i+2;
s[i] := chr(ord(s[i]) + 32);
Inc(i);
IF (s[i]=' ') then
inc(i);
if i > Length(s) then
break;
end;
if i > Length(s) then
break;
Inc(i);
end;
WriteLn(s);
write('продолжать ввод? (y/n)'); read(o);
until o='n';
close(t1);
end.