Задано N количество чисел последовательности и последовательность из N чисел. Найти и вывести произведение этих чисел и первое положительно число

uses Crt;
Const N=10;
var a:array [1..N] of integer;
      i,k,s,l:integer;
begin
clrscr;
for i:=1 to N do read(a[i]);
s:=1; k:=0;
     for i:=1 to N do s:=s*a[i];
     for i:=1 to N do
                      begin
                      if (a[i]>0) then begin
                                              k:=k+1;
                                              l:=i;
                                           end;
                      if (k=1) then writeln('Первое положительное число=',a[l]);
                      end;
writeln('Произведение чисел ряда=',s);

var
a,b,c,k,rez:integer;
plus,s,i,n:integer;
begin
readln(n);
rez:=1;
while k<n do begin
readln(a);
rez:=rez*a;
k:=k+1;
if s=0 then
 if a>0 then begin
           plus:=a;
           s:=s+1;
           end;
end;
writeln('1oe polojitelnoe=',plus);
writeln('proizvedenie vseh el-tov posledovatelnosti=',rez);
end.

var
a,b,c,k,rez:integer;
plus,s,i,n:integer;
begin
readln(n);
rez:=1;
while k<n do begin //цикл с предусл. n - колво членов последовательности.
readln(a);
rez:=rez*a; // в переменной rez хранится произведение эл-тов последовательности. Например последовательность 1 2 3. В rez будет записываться 2(1*2) и потом 6(2*3)
k:=k+1; // k - счетчик. В последовательности из 3х чесел он будет равен 2. Т.к. счет начинался с 0 (0,1,2) получем 3=n. Можете для наглядности k:=1 до цикла и в условии цикла прописать while k<=n do begin. Так, наверное, будет более правильно.
if s=0 then // s- показатель первого + эл-та. Если s=0, то + эл-тов ещё неыбыло. Как только  a>0 присваиваем plus значение элта и меняем s, чтобы больше не искать 1ый + эл-т.
 if a>0 then begin
           plus:=a; ..
           s:=s+1;
           end;
end;
writeln('1oe polojitelnoe=',plus);
writeln('proizvedenie vseh el-tov posledovatelnosti=',rez);
end.