Паскаль ввести возраст человека (от 1 до 10 лет ) и вывести год вместе с последующим словом " год","года" или "лет". Помогите пожалуйста

//Pascal
var A: integer;
begin
  write('Введите число: '); readln(A);
  if A mod 10 = 1 then writeln(A,' год.')
  else
  if ((A mod 10 = 2) or (A mod 10 = 3) or (A mod 10 = 4)) then
    writeln(A,' года.')
  else writeln(A,' лет.')
end.