помогите срочно написать на завтра программу, Pascal,задача простая,но я туплю Опции

[NESC]

Даны действительные числа a1, a2 ... a16 . Найти максимальную сумму из (a1+a16; a2+a15; a8+a9) и минимальное произведение из (a1*a9; a2*a10; a3*a9; ... a8*a16) Smax и Pmin Вывести на память.

Очень прошу!помогите!!не успею до завтра,а это всё таки лаба(((

[NESC]

Uses CRT;

Const n=16;

Var

 a:array[1..n] of Integer;
 b:array[1..n] of Integer;
 i, j,s1,s2,s3,p:Integer;

Begin
  Clrscr;
  Randomize;
  Writeln('Vvedem possledovatelnost chisel');

  For i:=1 to n do
   Begin
    a[i]:= random(50);
    Writeln(a[i]);
    Writeln;
   End;
   s1:=a[1]+a[16];
   s2:=a[2]+a[15];
   s3:=a[8]+a[9];
   if s1>s2 then
    if  s1>s3 then writeln('max summa=',s1)
    else writeln('max summa=',s3)
   else if s2>s3 then writeln('max summa=',s2);
   i:=0;
   j:=9;
   repeat
   i:=i+1;
   if i mod 2 = 0 then j:=j+1;
   begin
   b[i]:=a[i]*a[j];
   end;
   until (i>=n);
   i:=1;

   p:=b[1];
   for j:= 2 to 50 do
   if b[j]<p then begin
   p:=b[j];
   i:=j
   end;
   writeln('min proizvedenie=',p);
  Readln;
End.

скажите плз,где ошибка,он мне всегда выводит одно и тоже число при выводе минимального произведения,выдаёт всегда -10319