В зависимости от К(0;99) вывести фразу «мне К лет(год, годов) — Pascal(Паскаль)

uses crt;
 
var k : Integer;
 
begin
  ClrScr;
 
  Write('Сколько лет? ');
  ReadLn(k);
 
  if (k>99) or (k<0) then
    WriteLn('Вы ввели неверный возраст. Допустимые занчения [0..99]!')
  else
  begin
    Write('Мне ', k,' ');
    case k mod 10 of
    1: if k div 10=1 then write('лет') else write('год');
    2,3,4: if k div 10=1 then write('лет') else write('годa');
    else write('лет');
    end;
    WriteLn('.');
  end;
  ReadLn;
end.