Надо найти свой возраст в условном операторе?

Var  c1, c2: integer; 

begin     
c2 := Random(10) + 1; 
repeat   
writeln('Угадай цифру от 1 до 10');   
readln(c1);
if c1 <> c2 then writeln('Нет');   
if c1 = c2 then writeln('Да, ', c2); 
until c1 = c2;  
end.