Создать программу. которая при вводе возраста человека от 1 до 100 лет выводит на экран этот возраст с последующим словом "год" или "года" или "лет"

Var i,j: integer;
begin
readln(i);
j:=i mod 10;
if j=1 then writeln (i,' год')
 else   if (j=2) or (j=3) or (j=4)
then writeln (i,' года')
 else writeln (i,' лет')
end.