Написать программу для Паскаль через оператор Case. Для целого числа K

var i,n :integer;
begin
n:=99;
for i:=1 to n do begin
case i of
11..14 :writeln(мне ,i, лет);
else
case i mod 10 of
1:writeln(мне ,i, год);
2..4:writeln(мне ,i, года);
else
writeln(мне ,i, лет);
end;
end;
end;
end.
2-ой вариант:
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.