Помогите с задачей по Delphi! Надо вывести 10 задач(a*b=c) в цикле,

Помогите с задачей по Delphi! Надобно вывести 10 задач(a*b=c) в цикле, программа инспектирует задачки и считает баллы. В ходе цикла надобно вывести верный ответ(если вы ввели ошибочный ответ). Также программка считает количество баллов в зависимости от правильных ответов.
-------------------------------------------------------------------------------------
var i,x,y,answer,input:Integer;

begin
Writeln('*TEST*');
randomize;
answer:=10;

for i:=1 to 10 do
begin
Write(Random(x),' * ',Random(y),' = '); //я не знаю как задать спектр для
//переменной
Readln(input);
if input:=x*y then //программка выдает ошибку что нужен тип
//переменной boolean
begin
answer:=answer;
end
else
begin
write('WRONG!',x,' * ',y,' = ',x*y)
answer:=answer-1;
end;
end;

Writeln('Correct answers - ',answer);
case answer of
10:Writeln('Excellent!');
9,8:Writeln('Good!');
6,7:Writeln('OK!');
0..5:Writeln('Bad!');
end;

Readln;
-------------------------------------------------------------------------------------