Pascal: Угадай число!

Привет какдела, в этом воскресном посту, я расскажу как написать простую и интересную игру на паскале.

Блок-схема игры

Игра будет называться "Угадай число".

сразу пишем:

program ugadai_chislo;

затем указываем переменные:

var
a,b,c:integer;

теперь можно начинать:

begin

задаем, "число a" - произвольное число от 1 до 100, а "число c" равное 0:

a:=random(100)
c:=0

Начинаем цикл с пост условием,
берем значение "числа b" с клавиатуры, проверяем его, и если a=b, выходим из цикла

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. 

На всякий случай выложу весь код здесь

UPD: Сидя без инета, дописал игру, код здесь!