задача по паскалю

[Veryn4ik1993]

надо исправить там либо дополнительную процедурку дописать либ что-то исправить, помогите пожалуйста!!!
Формулировка задачи:Найти сумму максимального и минимального элементов одномерного массива. Проверить, является ли это число совершенным (число называется совершенным, если оно равно сумме всех своих делителей за исключением самого себя).

program mk;
Type masInt=array [1..10] of integer;
 var a:masInt; n,sum,s: integer;

procedure Form (var n:integer;var a:masInt);
 var i:integer;
begin
   writeln('введи длину массива');
   readln(n);
   writeln('введите сам массив');
   for i:=1 to n do
   readln(a[i]);
end;

 procedure Print (a: masInt; n: integer);
 var i: integer;
begin
  for i:=1 to n do write (a[i],' ');
  writeln;
end;

function Count(a:masInt; n:integer):integer;
   var i,max,min: integer;
begin
   max:=a[1];
   min:=a[1];
      for i:=1 to n do begin
       if a[i]>max then max:=a[i];
       if a[i]<min then min:=a[i];
  Count:=min+max;
end;end;

function Deliteli(s:integer):integer;
 var i: integer;
begin
 sum:=0;
 for i:=1 to 999 do
 If ((count mod i)=0) then sum:=count+i;
writeln(sum);
  end;
  


Begin
  Form(n,a);
  Print(a,n);
  writeln( Count(a,n));
End.

[domovou]

program mk;
Type masInt=array [1..10] of integer;
var a:masInt; n,sum,s,z: integer;

procedure Form (var n:integer;var a:masInt);
var i:integer;
begin
writeln('введи длину массива');
readln(n);
writeln('введите сам массив');
for i:=1 to n do
readln(a[i]);
end;

procedure Print (a: masInt; n: integer);
var i: integer;
begin
for i:=1 to n do write (a[i],' ');
writeln;
end;

function Count(a:masInt; n:integer):integer;
var i,max,min: integer;
begin
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
z:=min+max;
Count:=min+max;
end;
end;

function Deliteli(s:integer):integer;
var i: integer;
begin
sum:=0;
for i:=z-1 downto 1 do
  if z mod i = 0 then sum:=sum+i;
if sum = z
  then write('Совер')
  else write('Несовер');
writeln(sum);
end;



Begin
Form(n,a);
Print(a,n);
writeln( Count(a,n));
Deliteli(s);
End.

[Veryn4ik1993]

Большое спасибо!!!