Используя подпрограмму-функцию, определить число положительных элементов до первого отрицательного в массивах x(14), y(15), z(n).

Как-то так

function PositivesTillNegative(a:array of integer; n:integer):integer;
var k,i:integer;
begin
    k:=0;
    for i := 1 to n do begin
        if a[i]<0 then break;
        if a[i]>0 then k:=k+1;
    end;
    PositivesTillNegative:=k;
end;