[Delphi] Правильное окончание слова

[Derol]

Товарисчи, помогите решить задачу, для образца:
Дано натуральное число n (0<= n <=100), определяющее возраст человека в годах. Программа должна вывести сообщение, согласованное с n, например (с правильным окончание слова "год"), 1 год, 23 года, 45 лет и т.д.

[Пепел Феникса]

например так:

procedure TForm1.Button1Click(Sender: TObject);
var n:byte;
    s:string;
begin
 s:='';
 n:=StrToInt(Edit1.Text);
 case n of
  1,21: s:='ãîä';
  2..4,22..24: S:='ãîäà';
  5..20,25..30: s:='ëåò';
 end;
 Button1.Caption:=IntToStr(n)+' '+s;
end;

сами доделайте...общее направление я дал.

[Derol]

Спасибо огромное) Суть понятна, доделать не сложно)