первый положительный элемент в массиве Опции

[18192123]

мне нужно найти количество чисел после первого положительного элемента в одномерном массиве. но проблема в том, что вначале мне нужно найти этот первый положительный и его индекс,
но получается ерунда (всегда 0), я знаю почему, но других вариантов нет, ведь если искать второй элемент, то все работает.

const n=10;
type vect=array[1..n] of integer;
var a:vect; i,k:integer;
begin
writeln ('vvod massiva');
i:=1;
k:=0;
while (i<=n)and(k<1) do begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;

помогите пожалуйста!