Одномерный массив (сумма элементов)

const n=10;
 
type
  tarray=array[1..n] of Real;
 
var
  a:tarray;
  i:integer;
 
function sum(var a:tarray):real;{вычисляем сумму элементов, находящихся между 1-м и 2-м положительными числами массива A}
var
  i:integer;
  s:real;
begin
 i:=1;
 s:=0;
 while (i<=n) and (A[i]<=0) do {находим номер первого положительного элемента массива}
  inc(i);
 inc(i);
 if i<n
 then
  while (i < N) and (A[i] <= 0) do
   begin
    s := s + A[i];
    inc(i)
   end;
 sum := s;
end;
 
begin
 for i:=1 to n do
  begin
   write('Введите элемент: ');
   readln(A[i])
  end;
 writeln('Сумма чисел между первым и вторым положительным элементом: ',sum(A):0:2);
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,i1,i2:byte;
    s:real;
begin
clrscr;
randomize;
repeat
write('Размер массива от 1 до ',nmax,' n=');
readln(n);
until n in [1..100];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=9*random-4;
  write(a[i]:6:2);
 end;
writeln;
writeln;
writeln('Сумма элементов между первым и вторым положительными элементамии:');
i1:=0;
for i:=1 to n do
if a[i]>0 then
 begin
  i1:=i;
  break;
 end;
i2:=0;
for i:=i1+1 to n do
if a[i]>0 then
 begin
  i2:=i;
  break;
 end;
if i1=0 then writeln('В массиве нет положительных элементов! ')
else if i2-i1=1 then writeln('Между первым и вторым положительными нет элементов!')
else
 begin
  s:=0;
  for i:=i1+1 to i2-1 do
  s:=s+a[i];
  writeln('Сумма=',s:0:2);
 end;
readln
end.