Для целого числа К от 1до99 вывести фразу К-лет. Delphi

[Dilex]

Для целого числа к от 1 до 99 вывести фразу ''Имя К-лет'' учитывая при этом, что при некоторых значениях К слово "лет" надо заменить на слово "год" или "года" !

Ну например :

Ира 5 лет
Славик 22 года
Андрей 21 год


помогите аналогичной программой если не трудно напишите как это оформить программно ?

[Mad_Cat]

(c)Puporev

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.

[Dilex]

Сообщение от Mad_Cat

(c)Puporev

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.

Большое спасибо