Вывести на экран фразу "Мне k лет" правильно заменяя слово "лет" на "год" или "года"

program meniatletnagoda;
var 
k,y:integer;
begin
writeln ('введите ваш возраст чтобы сгенерировать фразу');
readln (k);
y := k mod 10;
writeln (y);
if y = 1 then
writeln ('мне ', k, ' год');
if k <= 20 then begin
 writeln ('мне ', k, ' лет');
 halt;
 end;
if y < 5 then 
 writeln ('мне ', k, ' года'); 
end.

program meniatletnagoda;
var 
k,y:integer;
begin
writeln ('введите ваш возраст чтобы сгенерировать фразу');
readln (k);
y := k mod 10;
if y = 1 then
writeln ('мне ', k, ' год');
if k <= 20 then begin
 writeln ('мне ', k, ' лет');
 halt;
 end;
if y < 5 then 
 writeln ('мне ', k, ' года'); 
if y >= 5 then 
  writeln ('мне ', k, ' лет');
end.

program meniatletnagoda;
var 
k,y,z:integer;
begin
writeln ('введите ваш возраст чтобы сгенерировать фразу');
readln (k);
z := 10;
while k > z*10 do begin
 z := z*10; 
 end;
 y := k mod z;
 if y = 0 then begin
 writeln ('мне ', k, ' лет');
 halt;
 end;
 if y = 1 then begin
 writeln ('мне ', k, ' год');
 halt;
 end;
 if k <= 20 then begin
 writeln ('мне ', k, ' лет');
 halt;
 end;
 if y < 5 then 
 writeln ('мне ', k, ' года'); 
 if y >= 5 then 
  writeln ('мне ', k, ' лет');
end.