10 вводится 10 целых чисел. найти первый положительный элемент и вывести его на экран. если положительных элементов нет, то ничего не выводить.

Const n=10;
Var a:array[1..n] of integer; i:integer;
Begin
i:=1;
While i<=10 do begin
Readln(a[i])
If a[i] >0 then begin
writeln(a[i]) ;
i:=i+n;
end;
i:=i+1;
end;
end.