AnPol_B2

Var
    C: Integer;
    S: String;
    FD: Text;
Begin
    Assign(FD, 'ANPOLB_1.PAS');
    Reset(FD);
    While Not EOF(FD) Do Begin
        ReadLn(FD, S);
        If Length(S) > 15 Then Inc(C);
    End;
    Close(FD);
    WriteLn('Count of > 15 symbols strings: ', C);
End.