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

program n;
uses crt;
var    s,w:integer;
begin
randomize;
s:=random(5); writeln(s,' зубов у Кузьки');
w:=random(5); writeln(w,' зубов у бабы Дуси');
if s>w then writeln('У Кузьки зубов больше');
if w>s then writeln('У бабы Дуси зубов больше');
if w=s then writeln('У бабы Дуси и Кузьки одинаковое кол-во зубов');
end.