[Gungnir]

Доброго времени суток!
Необходима помощь в выполнении задания данного типа:

Составить приложение в среде Delphi , рассчитывающую
функцию y(х) в зависимости от введенного параметра А.


Программа должна содержать:
1. оператор выбора Case..of
В программе предусмотреть:
Компонент для ввода А - Edit.
2. полученные значения у(х) записываются в массив.
3. значения массива у(х) и х выводятся в компонент Listbox.
Cделать следующие критерии:
• максимальный элемент массива,
• минимальный элемент массива,
• сумма всех элементов массива,
• произведение всех элементов массива,
• сумма всех отрицательных элементов массива,
• произведение всех отрицательных элементов массива,
• сумма всех положительных элементов массива,
• произведение всех положительных элементов массива,
Вывод рассчитанных критериев осуществляется с помощью
диалогового окна (Application.MessageBox).
• Вывод всех положительных элементов массива
• Вывод всех отрицательных элементов массива
Вывод всех положительных и отрицательных элементов массива
осуществляется в компонент Memo.
Если положительные или отрицательные элементы при расчете
соответствующего критерия отсутствуют предусмотреть вывод сообщения об
их отсутствии.

Трудности возникают в нахождении критериев, так как я думаю,что я неправильно построил массивы данных.

Необходима любая помощь(тыкнуть носом, помочь с кодом, подправить имеющийся код),либо код похожей программы.
У меня готова сама форма.
Сделанное прикрепил во вложении.