求助，如何取出出现最多的值？

Question

在一个序列中，我要找出出现最多的那个值？如何查找？

Answer 1

--写了一个楼主看看满意不var
  FDest: char;
  function Found(source: string; var dest: char): Integer;
  var
    I,J: Integer;
    count,tempCount: Integer;
  begin
    count    := 0;
    tempCount:= 0;
    for I:=1 to length( source ) do
    begin
      for J := 1 to length(source)  do
        if ( source[ I ] = source[ J ] ) then
          Inc( count, 1 );
      if count > tempCount then
      begin
        tempCount:=Count;
        dest:=source[I];
      end;
      Count:=0;
    end;
    Result:=tempCount;
  end;
begin
  showmessage( IntToStr( Found( 'aaabbbccccccc',FDest ) ) );
  showmessage( String( FDest ) );
end;