Найти номер первого положительного элемента массива - Turbo Pascal

Формулировка задачи:

Дан массив целых чисел. Найти номер первого положительного элемента массива. Решить задачу с использованием процедур

неужели никто не знает ?

Решение задачи: «Найти номер первого положительного элемента массива»

Листинг программы

Program Ex_1;
USES Crt;
 Const n=10;
Type myarray=Array [1..n] of integer;
 var A:myarray;  
 i,k:integer;
 
Procedure Init(var m:myarray);
var i:integer;
begin
for i:=1 to n do
  read(m[i]);
end;
begin
clrscr;
Init(A);
for i:=1 to n do
 if A[i]>0 then break;
 writeln('Номер первого положительного элемента:=',i);
readln;
end.

Объяснение кода листинга программы

В программе объявляется переменная n типа Const со значением 10.
Затем объявляется тип myarray, который представляет собой массив целых чисел размером от 1 до n.
Далее объявляются переменные A, i и k типа var и присваиваются соответствующие значения.
В процедуре Init считываются значения массива m с помощью цикла for и переменной i.
Затем вызывается функция clrscr для очистки экрана.
В основной части программы вызывается процедура Init с переменной A в качестве аргумента.
С помощью цикла for и переменной i ищется первый положительный элемент массива A.
Если такой элемент найден, то цикл прерывается командой break.
Выводится сообщение с номером первого положительного элемента.
Программа завершается вызовом readln.