Равна ли сумма элементов массива его произведению (через процедуры)

program z;
uses crt;
var i,n:byte; s,p:integer;
a:array [1..100] of integer;
procedure sravnenie(s1,p1:integer);
     begin
          if s1>p1
             then
                 writeln('Ñóììà ýëåìåíòîâ ìàññèâà áîëüøå, ÷åì ïðîèçâåäåíèå')
          else if s1<p1
               then
                   writeln('Ñóììà ýëåìåíòîâ ìàññèâà ìåíüøå, ÷åì ïðîèçâåäåíèå')
          else if s1=p1
               then
                   writeln('Ñóììà ýëåìåíòîâ ìàññèâà ðàâíà ïðîèçâåäåíèþ åãî ýëåìåíòîâ');
     end;
procedure summa(a1:array [1..100] of integer; n1:byte; var s1:integer);
     var i:integer;
     begin
          s1:=0;
          for i:=1 to n1 do
              s1:=s1+a1[i];
          writeln('Ñóììà ýëåìåíòîâ ìàññèâà: ',s1);
     end;
procedure proizv(a1:array [1..100] of integer; n1:byte; var p1:integer);
     var i:integer;
     begin
          p1:=1;
          for i:=1 to n1 do
              p1:=p1*a1[i];
          writeln('Ïðîèçâåäåíèå ýëåìåíòîâ ìàññèâà: ',p1);
     end;
procedure vuvod(a1:array [1..100] of integer; n1:byte);
     var i:integer;
     begin
          write('Èñõîäíûé ìàññèâ: ');
          for i:=1 to n1 do
              write(a1[i],' ');
          writeln;
     end;
begin
     repeat
           write('Ââåäèòå êîë-âî ýëåìåíòîâ ìàññèâà: ');
           readln(n);
           if (n<=0) or (n>100)
              then
                  writeln('Âû çàäàëè íåâåðíûé ïàðàìåòð! Ïîòâòîðèòå ïîïûòêó!');
     until (n>0) and (n<=100);
     clrscr;
     randomize;
     for i:=1 to n do
         a[i]:=trunc((55-(-55))*random+(-55));
     vuvod(a,n);
     summa(a,n,s);
     proizv(a,n,p);
     sravnenie(s,p);
end.

program z;
uses crt;
var i,n:byte; s,p:integer;
type mass = array [1..100] of integer;
var a:mass;
procedure sravnenie(s1,p1:integer);
     begin
          if s1>p1
             then
                 writeln('Сумма элементов массива больше, чем произведение')
          else if s1<p1
               then
                   writeln('Сумма элементов массива меньше, чем произведение')
          else if s1=p1
               then
                   writeln('Сумма элементов массива равна произведению его элементов');
     end;
procedure summa(a1:mass; n1:byte; var s1:integer);
     var i:integer;
     begin
          s1:=0;
          for i:=1 to n1 do
              s1:=s1+a1[i];
          writeln('Сумма элементов массива: ',s1);
     end;
procedure proizv(a1:mass; n1:byte; var p1:integer);
     var i:integer;
     begin
          p1:=1;
          for i:=1 to n1 do
              p1:=p1*a1[i];
          writeln('Произведение элементов массива: ',p1);
     end;
procedure vuvod(a1:mass; n1:byte);
     var i:integer;
     begin
          write('Исходный массив: ');
          for i:=1 to n1 do
              write(a1[i],' ');
          writeln;
     end;
begin
     repeat
           write('Введите кол-во элементов массива: ');
           readln(n);
           if (n<=0) or (n>100)
              then
                  writeln('Вы задали неверный параметр! Потвторите попытку!');
     until (n>0) and (n<=100);
     clrscr;
     randomize;
     for i:=1 to n do
         a[i]:=trunc((55-(-55))*random+(-55));
     vuvod(a,n);
     summa(a,n,s);
     proizv(a,n,p);
     sravnenie(s,p);
end.