Не понял задачу паскаля...

Вывести элемент с максимальным количеством целочисленных делителей. Подскажите пожалуйста. Не понял к чему привязывать мах

program nomer2;

const n=5;

var a:array [1..n] of integer;

i,j,k,max:integer;

begin

for i:=1 to n do begin

write('a[',i,']=');

read(a[i]);

end;

for i:=1 to n do begin

k:=0;

max:= ??

for j:=1 to a[i] do begin

if a[i] mod j = 0 then k:=k+1;

if max< k then max := k

end;

end;

writeln(k);

end.

Не могу вычислить мах в данном случае и как элемент в таком случае привязать.. .