Найти сумму элементов массива, которые кратны 5 - Free Pascal

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

Программа вводит в массив 10 случайных элементов.Найти сумму элементов которые кратны 5.(Составить с циклом предусловия while) Начало я могу составить:

Program S_1;
Const k=10;
Var A:array [1..k] bute;
i,n,s:bute;
Begine
Randomize

... а вот дальше никак.Помогите!

Решение задачи: «Найти сумму элементов массива, которые кратны 5»

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

program S_1;
const n=10;
var a:array [1..n] of Integer;
i,s:Integer;
begin
Writeln('Исходный массив:');
Randomize;
while i<>n do 
begin
inc(i);
a[i]:=Random(31);
Write(a[i],' ');
if a[i] mod 5=0 then s:=s+a[i];
end;
Writeln;
Writeln('Сумма элементов,которые кратны 5: ',s);
Readln;
end.

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

Объявление переменных:
- n - размер массива (10)
- a - массив для хранения чисел (10 элементов)
- i - счётчик элементов массива
- s - сумма чисел, которые кратны 5
Вывод исходного массива с помощью цикла while и оператора Writeln.
Инициализация счётчика i значением 0.
Заполнение массива случайными числами от 0 до 30 с помощью функции Random и оператора Write.
Проверка на кратность 5 с помощью оператора mod и если условие выполняется, то прибавление элемента к сумме s.
В конце программы выводится сумма s с помощью оператора Writeln.
В конце программы ожидается ввод с помощью оператора Readln.