Дана последовательность символов, оканчивающаяся точкой. Подсчитать количество групп символов +-. (Pascal abc (тип данных символьные )).

Var C,C1:char;
    k:integer;
Begin
k:=0;
Repeat
C1:=C;
Read(C);
if (C1 = '+')and(C = '-') then k:=k+1
Until C = '.';
Write(k)
End.




516r5t146bsrg+-+-654sr6fgh541f+-65s4fg.
3