Дан массив чисел найти наибольший элемент кратный 5

Program Ok;

var

A:array[1 ... 10] of integer;

i, max:integer;

begin

randomize;

for i:=1 to 10 do

begin

A[i]:=random (100) ;

write (A[i], ' ') ;

if (A[i] mod 5 = 0) and (A[i] > max) then

max:=A[i];

end;

write ('Максимальное значение кратное 5 = ', max) ;

end.