Подсчитать количество и вывести все числа величина которых не кратна 5 - Pascal

Формулировка задачи:

Дана последовательность чисел ai-та (i=1, 2, …, N). Подсчитать количество и вывести все числа величина которых не кратна 5.

Решение задачи: «Подсчитать количество и вывести все числа величина которых не кратна 5»

Листинг программы

const n=40;
var a:array[1..n] of byte;
    i,k:byte;
begin
randomize;
writeln('Массив А');
for i:=1 to n do
 begin
  a[i]:=1+random(100);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 5=0 then
 begin
  write(a[i]:4);
  k:=k+1;
 end;
writeln;
if k=0 then write('Нет элементов, кратных 5')
else write('Количество элементов, кратных 5=',k)
end.

Объяснение кода листинга программы

Создается константа n и переменные a (массив чисел) и i, k (для циклов и подсчета кратных чисел)
Генерируется случайный массив a из n чисел в диапазоне от 1 до 100
Выводится массив a
Инициализируется переменная k для подсчета кратных чисел
Проверяется каждый элемент массива a на кратность 5
Если элемент кратен 5, он выводится и увеличивается счетчик k
Печатается количество элементов кратных 5, либо выводится сообщение о их отсутствии