Ввести возраст человека (1-150 лет) и вывести его вместе с последующим слово «год», «года» или «лет» — Pascal(Паскаль)

Пример
Введите возраст 24
вам 24 года

Введите возраст
57
вам 57 лет
и т.д.

var n:integer;
begin
write('введите возраст: ');
readln(n);
if (n>11) and (n<21) then writeln('Вам ',n,' лет')
else
if (n mod 10 = 1) then writeln('Вам ',n,' год')
else
if ((n>21) and ((n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4))) or (n>1 and n<5) then writeln('Вам ',n,' года')
else
writeln('Вам ',n,' лет');
readln;
end.