Подпрограммы паскаль

[tower38]

помогите решить задачу и составить алгоритм вообще даже не знаю с чего начать ее решать очень слаб в паскале
Определить число положительных элементов в массивах X(10), Y(20), Z(15).

РЕКОМЕНДАЦИИ К РЕШЕНИЮ ЗАДАЧ

Для подсчета числа положительных элементов сравните значение элемента с нулем. Если элемент больше нуля, то значение счетчика числа положительных элементов увеличивайте на единицу.

[Poma][a]

.....
count := 0;
for i := 1 to n do
       if a[i] > 0 then
              Inc (count);
.....

[tower38]

можно поподробний а то вообще не понил

[Poma][a]

1) читаем кол-во элементов массива ReadLn (n);
2) инициализируем счетчик положительных элементов массива нулем count := 0;
3) цикл от 1 до последнего элемента массива for i := 1 to n do
4) если i-тый (текущий) элемент массива > 0 (положительный) if a[i] > 0 then
5) инкриментируем счетчик Inc (count);
6) выводим кол-во положительных элементов массива WriteLn (count).