Динамические массивы на Pascal

Даны три одномерных массива a, b и c разного размера. Определить какой из массивов имеет наименьшее количество нулевых элементов.

Требования к программе:

- inc использовать нельзя;
- размер и заполнение массивов вводится с клавиатуры или ввод информации должен быть из файла;

- необходимо для решения использовать подпрограммы, нельзя совмещать решение и ввод или вывод, так же необходимо создать тип массиваж

- не нужно фиксировать размер массива через const, его нужно вводить каждый раз.