Нахождение наиболее часто встречающегося элемента

[Sun :)]

Имеется одномерный массив. Найти наиболее часто встречающийся элемент массива и вывести его
(З.Ы. знаю делфи тока месяц, по-этому если можно, то решение попроще)
Заранее благодарен.

[spamer]

Вот:
var
mas : array[0..4] of Integer;
i, mx, mk, j, k: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
for i := 0 to 4 do
  mas[i] := StrToInt(StringGrid1.Cells[i,0]);


mx:=mas[1]; mk:=1; k:=0;
for i := 0 to 4 do
begin
  for j := 0 to 4 do
    if mas[i] = mas[j] then inc(k);
    if ((mk = k) and (mx > mas[i])) or (mk < k) then
      begin
        mx:=mas[i];
        mk:=k;
      end;
    k:=0;
end;
Caption := 'Число ' + IntToStr(mx) + ' встречается '+IntToStr(mk) + ' раз';
end;

з.ы. код переводил с с++. но вроде все работает.

[Sun :)]

spamer
Крайне благодарен