Для целого числа k от 1 до 99 напечатать фразу Мне

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
nbsp;case k mod 10 of
nbsp;1:write(Мне ,k, год);
nbsp;2..4:write(Мне ,k, года);
nbsp;else write(Мне ,k, лет);
nbsp;end;
end;
readln
end.