Дан массив из N частей. Найти сумму тех частей, которые кратны

Сделал через динамический массив тоесть размер вводится с клавиатуры
program Project2; 
APPTYPE CONSOLE
var a:array of integer;    i,n,s:Integer;
begin 
 Randomize; 
s:=0; 
 Readln(n);//вводим размер массива с клавиатуры  
 SetLength(a,n); //задаем размер массива 
for i:=0 to Length(a) do 
 a[i]:=Random(100); //геним массив
 for i:=0 to Length(a) do 
  if a[i] mod 5 =0 then //разыскиваем сумму
   s:=s+a[i]; 
 Writeln('Summ: ',s); //выводим сумму 
 readln;
end.