Дан массив из N элементов. Определить сумму тех элементов, которые кратны 5

сделал через динамический массив тоесть размер вводится с клавиатуры 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.