Найти максимальное из 100 любых чисел, кратных 5 — Pascal(Паскаль)

max:=-1000;
for i:=1 to 100 do
if (a[i] mod 5=0)and(a[i]>max) then max:=a[i];