Угадайка, Помогите понять где ошибка Опции

[Simple]

Вообщем нужно написать элементарную программу на паскале, а что-то мучаюсь с ней... Помогите написать ее
задание: напиши игру угадайка
1) Запускаю программу
2) Сначало ввожу диапазон случайного числа(программа должна подсказыват ьмне что писать сейчас)
3)Ввожу число
4) Если угадываю то пишет мне что я угадал и ждет нажатия интера для выхода из программы
5) Если не угадал пишет мне какое число было загадано и джет нажатия интера для выхода

Вот мой код
Program ugaday;
var
n,a,b:integer;
num:integer;
begin
randomize;
write('введите диапазон чисел:');read(n)
a:=random(n);
write('введите число:');read(b);
if a=b then write('вы угадали');
else writeln('вы не угадали, ответ',a);
end;
readln
end.