Вычислить сумму элементов массива, расположенных между первым и вторым положительными элементами

program first_and_second;
const
  n_max=100;
var
  A:array [1..n_max] of real;
  n,i:integer;
  sum:real;
  kfirst,ksecond:integer;
begin
  randomize;
  kfirst:=0;
  ksecond:=0;
  sum:=0;
  write('Введите размер массива:');
  readln(n);
  writeln('Исходный массив:');
  For i:=1 to n do
    begin
      A[i]:=-n div 3  + random*n;
      write(A[i]:8:2);
    end;
  For i:=1 to n do
    if a[i]>0 then
      begin
        kfirst:=i;
        break;
      end;
  For i:=1 to n do
    if a[i]>0 then
      begin
        inc(ksecond);
        if ksecond=2 then
          begin
            ksecond:=i;
            break;
          end;
      end;
  for i:=kfirst+1 to ksecond-1 do
    sum:=sum+a[i];
  writeln('Сумма элементов массива: ',sum:0:2);
  readln;
end.

var a:array of real;
    s:real;
    i,k,n:integer;
 
begin
  write('Задайте размер массива - ');
  readln(n);
  setlength(a,n);
  s:=0;
 
  for i:=0 to n-1 do
    begin
    readln(a[i]);
    if (a[i]>0) and (k=1) then
      k:=2;
    if k=1 then
      s:=s+a[i];
    if (a[i]>0) and (k=0) then
      k:=1;
  end;
  
  if k=2 then
    write('Сумма = ',s)
  if s=0 then
    write('Подходящих элементов нет')
end.

var a:array of real;
    s:real;
    i,k,n:integer;
begin
  write('Задайте размер массива - ');
  readln(n);
  setlength(a,n);
  s:=0;
  
  for i:=0 to n-1 do
    begin
    readln(a[i]);
    if (a[i]>0) and (k=1) then
      k:=2;
    if k=1 then
      s:=s+a[i];
    if (a[i]>0) and (k=0) then
      k:=1;
  end;
 
  if s=0 then                                      
    write('Подходящих элементов нет')  
  else                                                
    write('Сумма = ',s)                         
end.