Помогите с задачей на процедуры

[saka]

Условие: Разработать процедуру, которая в массиве целых чисел находит элементы с максимальным количеством четных цифр и его номер! Помогите плз, оч вас прошу. Заранее спасибо.
P.S. Язык delphi

 

[isqoff]

в консоли надо сделать или с каким-либо интерфейсом? и ещё : рандомная расстановка массива или пользователь вводит?