Помогите написать программу
Паскаль: Организуйте массив. Выведите на дисплей значение и индекс второго положительного элемента.

мне написали эту программу несколько проще, но она выводит и отрицательные числа

1. Uses Crt;VarA:Array [1..10] Of Integer;I:Integer;BeginFor I:=1 To 10 DoBeginWriteln('Введите элементы массива A[',I,']');Readln(A[I]);End;Writeln();Writeln('A[2] - Индекс массива; ', A[2], ' - Значение массива');End.

program polog;vari:byte;a:array[1..255] of single;prox:boolean;beginrandomize;prox:= true;for i:=1 to 255 do a[i]:=random(254)-127;for i:=1 to 255 do if a[i]>0 then if prox then prox:=falseelse begin writeln(a[i],i); exit(или close не помню); end;end.