Процедуры и функции. Делфи7.

[Fatalita]

Помогите написать программу. Или, хотя бы, функцию.

Даны натуральное число n, целые числа a1,a2,...,an. Рассмотреть отрезки последовательности a1,a2,...,an. (последовательности идущих подряд членов) состоящих из совершенных чисел. В каждом случае получить наибольшую из длин рассматриваемых отрезков. (Определить функции, позволяющие распознать совершенные числа.)

Спасибо. Очень выручите.

[Mad_Cat]

Или, хотя бы, функцию.

function Perfect(n:longint):boolean;
var
  i,s:longint;
begin
  s:=0;
  for i:=1 to n div 2 do 
    if n mod i = 0 then
      s:=s+i;
result:=n=s;
end;