Угадай число! 1.0

program ugadai_chislo;
var
a,b,c:integer;
begin
    a:=random(100)
    c:=0
    repeat
        readln(b);
        c:=c+1;
        if a<b then writeln('Загаданное число меньше') else
        if a>b then writeln('Загаданное число больше');
    until a=b;
writeln('Число угадано!');
writeln('Время: ',Milliseconds/1000);
writeln('Попыток: ',c);
end.