В предположении, что речь идет о подсчете чисел....
program example;
const
n=10;
var
a:array[1..n] of integer;
i:integer;
k:integer;
j:integer;
pos:integer;
freq:integer;
begin
a[1]:=181;
a[2]:=223;
a[3]:=332;
a[4]:=11;
a[5]:=51;
a[6]:=11;
a[7]:=72;
a[8]:=11;
a[10]:=121;
pos:=1;
freq:=1;
for i:=1 to n do
begin
k:=1;
for j:=i+1 to n do
begin
if a[i]=a[j] then k:=k+1;
end;
if k>freq then
begin
freq:=k;
pos:=i;
end;
end;
writeln(a[pos],' ',freq);
readln;
end.