аполняю stringgrid случайными числами и нужно в одном столбце найти и вывести частно встречаемое число

[Demonstator]

Подскажите пожалуйста.
Вот заполняю stringgrid случайными числами и нужно в одном столбце найти и вывести частно встречаемое число. Заранее огромное спасибо

[Serge_Bliznykov]

случайные числа в каком диапазоне?
если небольшой диапазон, то проще зависти массив и в нём считать частоту появления.
Если нет - считать в динамической структуре.

И подумайте, что надо выводить, если несколько чисел имеют одинаковую частоту появления.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
const m=20;
var i,j,k,c:integer;
    p:array[0..m] of integer;
    s:string;
begin
   Randomize;
   For i:=0 to StringGrid1.ColCount-1 do
      For j:=0 to StringGrid1.RowCount-1 do
         StringGrid1.Cells[i,j]:=IntToStr(Random(m+1));
   For i:=0 to m do
      p[i]:=0;
   s:='';
   k:=StrToInt(Edit1.Text);
   For j:=0 to StringGrid1.RowCount-1 do
   begin
      c:=StrToInt(StringGrid1.Cells[k,j]);
      p[c]:=p[c]+1;
   end;
   c:=0;
   For i:=0 to m do
      If p[c]<p[i] then
         c:=i;
   Caption:=IntToStr(c);
end;