Напишите на языке паскаль программу для игры "угадай число" (промежуток от 1 до 8)

Var n,rand: Integer;
begin
writeln('Введите любое число от 1 до 8');
readln(n);
rand:=random(8-1+1)+1;
if rand=n then writeln('Вы отгадали число!') else writeln('Вы не отгадали. Было загадано число ',rand);
end.