Для целого числа k от 1 до 99 напечатать фразу «Мне k лет», учитывая при этом, что при некоторых значениях k слово «лет» надо заменить

uses crt;
var k:byte;
begin
clrscr;
repeat
write('Введите возраст от 1 до 99 k=');
readln(k);
until k in [1..99];
case k of
11..14:write('Мне ',k,' лет');
else
 case k mod 10 of
 1:write('Мне ',k,' год');
 2..4:write('Мне ',k,' года');
 else write('Мне ',k,' лет');
 end;
end;
readln
end.