Определить порядковый номер 1-го положительного эл Опции

[BanneD]

Код

program massiv;
uses crt;
const n=50;
type t=array [1..n] of integer;
var a:t;
i:integer; m:integer;
begin
clrscr;
randomize;
read(m);
for i:=1 to m do
a[i]:=5-random(10);
for i:=1 to m do
if a[i]>0 then writeln('i=',i);
for i:=1 to m do
writeln('a[',i,']=',a[i]);
end.

всё тут сделано но нужно чтобы не все положительные элименты, а нужно чтобы только 1-ый положительный элимент выводил, а остальные нет!
как это сделать ?

[TarasBer]

> все же абсолютно нелишне спросить разрешение его автора.

Ну я потому и говорю, а не молча выкладываю.

> если только будет хоть как-то описано, зачем этот модуль создавался.

Само собой.

> Это вообще очень даже стандартная практика: перекрывать своими модулями часть функционала чужих модулей...

Это да, но такой случай перекрытия функционала на ноль мне показался забавным.