Определить порядковый номер 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-ый положительный элимент выводил, а остальные нет!
как это сделать ?

[мисс_граффити]

Стесняюсь спросить... а чем вызвана такая ненависть к ClrScr?

[Lapp]

Стесняюсь спросить... а чем вызвана такая ненависть к ClrScr?

Смею предположить, что ты мало используешь командную строку (особенно как рабочий инструмент).
Кто читает мои мессаджи, тот знает, я уже много раз говорил (и volvo частенько подхватывал). Например, можно почитать с этого мессаджа и ниже: Матрица. Суммы диоганалей паралельных главной и побочной
Я понимаю, что это всего лишь момент в образовании, но достало. Так что форма вышла резковатая, признаю. Я думал, что люди задумаются ("а почему?"), а нарвался на выражение протеста против ограничения прав и свобод )). Еще раз повторяю: репутация не есть админский способ наказания, это средство для каждого участника выразить свое мнение о человеке. Та угроза была, конечно, профанацией и скорее шуткой, но смайл я не поставил - и получил в ответ грубость (наверное, заслуженную). Я снимаю премод BanneD, убираю минус из репутации и извиняюсь.

CRT я прекрасно использую и сам (например, в последней отвеченной теме, про змейку). И, если нужно, использую и ClrScr. Но не нужно совать и везде и всюду.