Массив, функция и ComboBox. Задачи.

[Preend]

Собсно, нужна помощь в написании 3х программ.

№1
Ввести одномерный массив. Сформировать новый массив, элементы которого будут равны максимальному из трех соседних элементов (i-1, i, i+1). Предусмотреть меньший размер у нового массива.

№2
type
stroka=array [1...100] of char;
Описать функцию schet(S), посчитать общее количество цифр и знаков '+,'-','*' входящих в строку S.
Организовать Windows-приложение в Delphi, в котором исход. строка вводится с клавиатуры с помощью объекта TEdit, а результат с помощью TLabel. (обращение к function Schet).

№3
Организовать статичную библиотеку Unit для выполнения простейших действий (+,-,/,*) над компон. числами. Обратиться к ее подпрограмме из главной программы, в которой выбор действия организовать через ComboBox.
type complex=record
re, im:real;
end;
z1=a+ib; z2=c+id; z1+z2=(a+c)+i(b+d); z1-z2=(a-c)+i(b-c); z1*z2=(a*c-b*d)*i(a*d+b*c); z1/z2=(a+ib)/(c+id)=(ac+bd)/(c^2+d^2)+i*(b*c-a*d)/(c^2+d^2).

Вот как-то так. Буду вам очень признателен.