Дан целочисленный массив из 30 частей, все элементы которого - положительные

Дан целочисленный массив из 30 элементов, все элементы которого - положительные числа, не превосходящие 100. Опишите в Паскале метод, который обретает и выводит номер элемента, имеющего наибольшее количество целочисленных делителей. Начальные данные объявлены так, как показано ниже. Разрешается не использовать часть описанных ниже переменных.

const N=30;

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

i, j, k, imax, kmax: integer;

begin

for i:=1 to N do readln(a[i]);

...

end.