Pascal ABC

[Kefir 0]

Помогите решить задачу

program capone;
uses crt;
var a,b,c,d,f:integer;
x:char;
Begin
writeln('загадайте число от 0 до 100 включительно');
readln(a)
b:=100;
c:=b;
repeat
inc(d);
c:=c+1;
writeln('загадайте число + или - чем');
readln(x);
case x of
'+':be:gin
c:=c div 2;
b:=b+c;
end;
'-':be:gin;
c:=c div 2;
b:=b-c;
end;
else writeln('');
end;
until b=a;
writeln('кол.попыток',d);
writeln('ваше число',b);
end.

Ошибку выдает

[Chichik]

readln(a)
b:=100;
c:=b;
repeat
inc(d);
Здесь смотри
'+'gin
c:=c div 2;
b:=b+c;
end;
'-'gin;