PASCAL С клавиатуры вводится 30 чисел .Сколько посреди их нулей .Отыскать

var a:array [1..30] of integer; // массив из 30 частей
i : integer; // итератор
count : integer; // счетчик числа символов, делящихся на 5
avrg : real; // среднее арифметическое
begin
avrg := 0; // в начале среднее арифметическое одинаково 0
for i:=1 to 30 do
read(a[i]); // считать 30 чисел
for i:= 1 to 30 do // проверка всех чисел
begin
if (a[i] mod 5 = 0) then // если число кратно 5, то увеличить счетчик и прибавить число к среднему значению
count := count + 1;
avrg:= avrg + a[i];
end;
writeLn(avrg / count); // вывести сумму всех чисел, деленную на их кол-во
end.