Для целого числа k от 1 до 99 напечатать фразу «мне k лет», учитывая при этом, что при некоторых значениях k слов «лет» надо заменить на слово «год» и «года». Например 11 лет, 22 года, 51 год — Pascal(Паскаль)

uses crt;
var
x,y,k:integer;
begin
clrscr;
writeln ('vvedite vozrast (1-99): ');
readln (k);
x:=k div 10;
y:=k mod 10;
{проверка на круглые даты}
if (y=0)
then writeln (k,' let') else
{проверка на даты прим: 21,31,41}
if (y=1) and ((x=0) or (x=2) or
(x=3)or (x=4) or (x=5) or (x=6) or
(x=7) or (x=8) or (x=9))
then writeln (k,' god') else
{проверка на даты прим: 26,47, 58}
if ((y=5) or (y=6) or (y=7) or (y=8) or
(y=9)) and ((x=0) or (x=2) or
(x=3)or (x=4) or (x=5) or (x=6) or
(x=7) or (x=8) or (x=9))
then writeln (k,' let') else
{проверка на даты 11-19}
if ((y=1) or (y=2) or (y=3) or (y=4) or
(y=5) or (y=6) or (y=7) or (y=8) or
(y=9)) and (x=1)
then writeln (k,' let')
{выводит для дат прим: 22,34,53}
else writeln (k,' goda');
end.