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

//Pascalvar 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.