Описать процедуру с параметром - Turbo Pascal

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

HELP Нужна программа которая будет содержать процедуру (с параметрами) - которая через один из параметров будет возвращать в программу количество положительных элементов. + алгоритм этой программы.

Решение задачи: «Описать процедуру с параметром»

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

program proc;
uses crt;
type vec=array[1..10] of integer;
var a:ver;
      i,k,n:byte;
procedure poisk (b:vec; var n:byte);
var i:byte;
begin
n:=0;
for i:=1 to 10 do
if b[i]>0 then n:n+1;
end;
begin
randomize;
for i:=1 to n do begin
a[i]:=-5+random(30);
write (a[i]:3);
end;
poisk (a,n);
writeln ('V massive a  ',n,' polozh. elementov');
readln;
end.

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

В программе объявлены переменные: a, i, k, n - типа byte; vec - типа array[1..10] of integer.
В процедуре poisk (b:vec; var n:byte) переменная n инициализируется значением 0.
Затем происходит цикл for, в котором переменная i принимает значения от 1 до 10.
Если значение элемента b[i] больше 0, то значение переменной n увеличивается на 1.
После выполнения цикла for, начинается второй цикл for, в котором переменная i также принимает значения от 1 до n.
В цикле происходит запись в массив a[i] значения -5 + random(30), после чего выводится значение a[i] с помощью функции write.
После окончания второго цикла for выполняется функция poisk (a,n), которая вызывает первый цикл for.
По завершении первого цикла for выводится строка 'V massive a n polozh. elementov' с помощью функции writeln.
Выполняется чтение с клавиатуры с помощью функции readln.