Вот, как вариант полностью отлаженной программы:
Код:
var
x,y:char;
k:integer;
b:boolean;
Begin
k:=0;
write('First symbol: ');
readln(x);
Repeat
write('Next symbol: ');
readln(y);
b:=(x='+') and (y='+');
if (x='*') and (y='*') then inc(k);
x:=y;
Until b;
writeln('k = ',k);
readln;
End.