вывод массива из подпрограммы

[nomi]

привет,понимающие помогите плиз решить задачу на tp7,у меня постоянно вылезают ошибки,как ее сделать правильно кажется не знаю,вобщем вот она:
задается n-вводится одномерных массивов(ввод элементов массива с помощью процедуры).подсчитать в каждом массиве количество положительных элементов(с поиощью функции)

[p51x]

function Pos_Counter(a:TMas; n:Integer):Integer;
var
  i:Integer;
begin
  result := 0;
  for i:=1 to n do
    if(a[i] > 0) then Inc(result);
end;

[Stilet]

nomi

Хвастайся кодом.