Дано натуральное число k. Написать программку, которая по введенному числу k

Для выхода из программки необходимо по запросу о возрасте ввести 0.

program age;
var k:integer;

begin
k:= 1;

while k gt; 0 do
begin
write(Введите возраст в годах );
readln(k);

case (k mod 10) of
1: writeln(Мне , k, год);
2..4: writeln(Мне , k, года);
5..9: writeln(Мне , k, лет);
0: writeln(Мне , k, лет);
end;

writeln()
end
end.