Помогите!! Напечатайте фразу "Мне n лет", согласовав число n (n меньше =99) с фразой. Например, мне 15 лет или мне 4 года или мне 21 год. Паскаль

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