Нет с массивами я напутал,вот сама задача-В последовательности символов, вводимых с клавиатуры , подсчитать количество пар символов "*". Признак завершения ввода: два символа "+".
program mg4000;
var x,y:char; k:integer;
begin
k:=0;
repeat
writeln('Введите следующую пару символов');
readln(x);
readln(y);
if (x='*') and (y='*') then inc(k);
until (x='+') and (y='+');
readln;
writeln('k=');
end.
завершает программу после 3 +