В последовательности символов, вводимых с клавиатуры , подсчитать количество пар символов "*". Признак завершения ввода: два симво

[votsar]

Паскаль.В последовательности символов, вводимых с клавиатуры , подсчитать количество пар символов "*". Признак завершения ввода: два символа "+".

[Stilet]

Попытки? Наработки? Не?

[votsar]

program dqw;
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.

все казалось бы работает,но не завершает он программу после 2 "+" подряд((