Написать алгоритм по угадыванию чисел в диапазоне от 1 до 8

var
a,b,c:integer;
begin
randomize;
a:=random(8);
c:=0;
repeat
writeln('Введи число: ');
if a<>b then
 c:=c+1;
readln(b);
if b>a then
 writeln('Загаданное число меньше ! ');
if b<a then
 writeln('Загаданное число больше ! ');
if b=a then
 writeln('Победа!');
until a=b;
writeln(c);
readln;
end.