Немного в ступор вошел, а нужно ли брать отрицательное число?

program mass2;
 
var mass:array[1 .. 10] of integer = (5, -8, 6, 9, 15, 5, 8, 6, 9, 5);
    i, s:integer;
 
begin
  Writeln('Исходный массив:');
  Write('    [ ');
  for i:=1 to 10 do begin
    Write(mass[i], ' ');
  end;
  Write(']');
  Writeln;Writeln('Проход по элементам a1*a2 + a2*a3 ... am-1*am+am*a1');Write('    ');
  for i:=1 to 10 do begin
    if(mass[i] > 0) then begin
      Write(mass[i], ' * ', mass[i+1], ' | ');
      s := s + mass[i] * mass[i+1];
    end else begin
      Writeln;Writeln('Нашли отрицательное число!');
      Write('    ',mass[i-1], ' * ', mass[i], ' + ', mass[i], ' * ',mass[1], ' | ');
      s := s + mass[i-1] * mass[i] + mass[i] * mass[1];
      break;
    end;
  end;
  Writeln;Writeln;
  Write(' S = ', s);
end.

const n=10;
var mass:array[1..n] of integer = (5, -8, 6, 9, 15, 5, 8, 6, 9, 5);
    i,m,s:integer;
begin
writeln('Исходный массив:');
write('    [ ');
for i:=1 to n do
write(mass[i], ' ');
writeln(']');
m:=0;//номер 1 отрицательного
i:=1;
while (i<=n)and(m=0) do
if mass[i]<0 then m:=i else i:=i+1;
writeln('Первый отрицательный элемент=',mass[m],' его номер=',m);
m:=m-1;//нам нужно до него
s:=0;
for i:=1 to m-1 do
s:=s+ mass[i]* mass[i+1];
s:=s+mass[1]*mass[m];//+ последнее слагаемое
write(' S = ', s);
end.