Перечислимые и интервальные типы: программа печатающая для целого от 1 до 99 фразу: мне ,,, лет

program kontr1;
uses crt;
label label1; {описание метки}
var
k,b:integer;  {описываем переменные }
begin
 clrscr;      {очистка экрана}
 writeln('Введите число k:');  {вывод надписи}
 write('k=');
 readln(k);                {вводим число k}
 if(k>4)and(k<21) then    {проверяем если число k находится в диапазоне} 
  begin                   {от 5 до 20 то ответ будет ‘лет’}
    writeln('Мне ',k,' лет');  {вывод сообщения}
    goto label1;           {переходим на метку}
  end
 else
  b:=(k mod 10);          {находим остаток от деления}
   if(1<b)and(b<5) then   {если остаток в диапазоне от 2 до 4 }
     begin                {то ответ будет ‘года’}
      writeln('Мне  ',k,' года');
      goto label1;
     end
 else                     {если остаток равен 1 то ответ будет ‘год’}
   if b=1 then
    begin
     writeln('Мне  ',k,' год');
     goto label1;
     end
 else
   writeln('Мне  ',k,' лет');
 label1:write('Нажмите любую клавишу для продолжения');
        repeat
        until keypressed
 end.

uses crt;
var k:1..99;
    s:string;
begin
clrscr;
write('Введите число от 1 до 99 k=');
readln(k);
str(k,s);
s:='Мне '+s;
case k mod 100 of
11..14:s:=s+' лет';
else
 case k mod 10 of
 0,5..9:s:=s+' лет';
 2..4:s:=s+' года';
 1:s:=s+' год';
 end;
end;
write(s);
readln
end.