Определить число положительных элементов до первого отрицательного в массивах

uses crt;
var x:array[1..40]of integer;
    y:array[1..50]of integer;
    z:array[1..100]of integer;
    n,i,kol:integer;
begin
clrscr;
randomize;
for i:=1 to 40 do
    begin
         x[i]:=random(20)-7;
         write(x[i]:4);
    end; writeln;
for i:=1 to 40 do
    begin
         if x[i]>0 then inc(kol);
         if x[i]<0 then break;
    end;
writeln('chislo polozhitelnih elementov do 1-go otricatelnogo massiva X = ',kol);
kol:=0;
for i:=1 to 50 do
    begin
         y[i]:=random(20)-7;
         write(y[i]:4);
    end; writeln;
for i:=1 to 50 do
    begin
         if y[i]>0 then inc(kol);
         if y[i]<0 then break;
    end;
writeln('chislo polozhitelnih elementov do 1-go otricatelnogo massiva Y = ',kol);
writeln('vvedite chislo elementov massiva Z');
readln(n);
kol:=0;
for i:=1 to n do
    begin
         z[i]:=random(20)-7;
         write(z[i]:4);
    end; writeln;
for i:=1 to n do
    begin
         if z[i]>0 then inc(kol);
         if z[i]<0 then break;
    end;
writeln('chislo polozhitelnih elementov do 1-go otricatelnogo massiva Z = ',kol);
readln;
end.