Помогите!!! Подпрограммы х_х

[polika]

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

[Stilet]

Не вопрос. Покажи ввод массивов.

[newerow1989]

var a,b,c:array of integer;//3 массива
    i,max{размерность массивов},count{кол-во положительных элементов}:byte;
begin
   Randomize;
   count:=0;//обнуляем счетчик
   max:=5+Random(10);//размерность 1-го массива
   SetLength(a,max);//устанавливаем размерность 1-го массива
   For i:=0 to max-1 do
   begin
      a[i]:=-10+Random(21);//генерируем число в диапазоне [-10..10]
      Write(a[i],'  ');//вывод на экран
      If a[i]>0 then//если встретился положительный элелемент, то...
         count:=count+1;//...увеличиваем count на единицу
   end;
   Writeln;//перенос курсора на следующую строку
   // остальное то же самое со 2-м и 3-м массивами //
   max:=5+Random(10);
   SetLength(b,max);
   For i:=0 to max-1 do
   begin
      b[i]:=-10+Random(21);
      Write(b[i],'  ');
      If b[i]>0 then
         count:=count+1;
   end;
   Writeln;
   max:=5+Random(10);
   SetLength(c,max);
   For i:=0 to max-1 do
   begin
      c[i]:=-10+Random(21);
      Write(c[i],'  ');
      If c[i]>0 then
         count:=count+1;
   end;
   Writeln;
   Writeln('count = ',count);//вывод общего кол-ва положительных чисел в трех массивах
   Readln;
end.

Сойдет?