Самая частая цифра числа.

  function tchisl.lolo:integer;
var
d,kol,s,l,k,j,i:integer;
a:array of integer;
b:array of integer;
    begin
    k:=1;
    j:=0;
while far>0 do
begin
    i:=far mod 10;
   far := far div 10;
   setlength(a,k);
   a[j]:=i;
    j:=j+1;
    k:=k+1;
end;
d:=0;
i:=1;
kol:=0;
 for s:=0 to high (a) do
  for l:=0 to high(a) do
    begin
     if (s<>l) and (a[s]=a[l]) then
      begin
       setlength(b,i+1);
       b[i]:=kol;
       kol:=kol+1;
 
     end;
    end;
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var n,k:integer; mas:array[0..9]of byte;
begin
n:=921095;
fillchar(mas,sizeof(mas),0);
while n>0 do
 begin
   k:=n mod 10;
    inc(mas[k]);
  n:=n div 10;
 end;
k:=0;
for n:=0 to 9 do
if mas[n]>k then
k:=n;
label1.Caption:='чаще всего встречается '+inttostr(k);
end;

var
far,i,k:integer;
a:array [0..9] of byte;
begin
far:=strtoint(edit1.text);
  for i:=0 to high(a) do
  begin
    a[i]:=0;
  end;
  while far>0 do
  begin
    k:=far mod 10;
    inc (a[k]);
    far:=far div 10;
  end;
  k:=0;
 for far:=0 to 9 do
 if a[far]>k then
    result:=far;
end;

function Proc();
var
  i : Integer;
begin
  for i := 1 to 10 do begin
  ...
  end;