Паскаль: функции, вложенные циклы

[Liam_]

1) Дана последовательность целых чисел a1, a2, ... , an Найти число, наиболее часто встречаемое в массиве (если таких цифр несколько - напечатать лю-бую из них).

2) Описать функцию DigitCount(K) целого типа, находящую количество цифр цело-го положительного числа K. Используя эту функцию, найти количество цифр для каждого числа, хранящегося в массиве {МКi} i = 1, 2, ... , n.

Буду рад любой помощи

[Mad_Cat]

function DigitCount(K:integer):integer;
var c:integer;
begin
c:=0;
while k>0 do begin
k:=k div 10;
inc(c);
end;
DigitCount:=c;
end;

1)

uses crt;
var a:array[1..100] of integer;
     i,n,j,ind,sum,max:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 for i:=1 to n do
  begin
  writeln('Vvedite ',i,' element ');
  readln(a[i]);
  end;

for i:=1 to n do
 write(a[i],' ');
 writeln;

ind:=0;
max:=0;
for i:=1 to n do
 begin
  sum:=0;
   for j:=1 to n do
    if a[i]=a[j] then sum:=sum+1;

   if sum>max then begin ind:=i; max:=sum; end;
 end;

writeln;
writeln('Элемент ',a[ind],' встречается в массиве ', max,' раз');
 readln;
end.

[Liam_]

Благодарю, разобрался)