помогите! составить программу в паскале.

У младенца Кузьки вылезло уже s зубов, а у его бабы Дуси осталось w зуба. Задать с помощью генератора случайных чисел 2 целых числа от 0 до 5 – значения для s и w. У кого зубов больше?

Program Rinok;Const x0=0;x1=5;Var s,w: integer;beginRandomize;s:=Random(X1-X0)+X0;w:=Random(X1-X0)+X0;writeln('у Кузи-',s);writeln('у Дуси-',w);if  (s>w)then Writeln ('-у Кузи больше')else Writeln ('-у Дуси больше');Readlnend.