но получается ерунда (всегда 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;
помогите пожалуйста!