Третье предложение в тексте заключить в скобки (программа Паскаль)

Question

Третье предложение в тексте заключить в скобки

Answer 1

USES Crt;
VAR
  A: STRING [200]; I,K,F: INTEGER;
BEGIN
 ClrScr;
 Write('Введите текст  '); ReadLn(A);
 I:=1; K:=0; F:=0;
 While (I<=Length(A)) DO Begin
    IF A[I]='.' THEN  K:=K+1;
    IF (K=2) AND (F=0) THEN Begin  Insert('(',A,I+1);  F:=1;  End;
    IF (K=3) AND (F=1) THEN Begin  Insert(')',A,I+1);  F:=0;  End;
    I:=I+1;
  End;
  WriteLn(‘Измененный текст:’);  WriteLn(A);
END.