Go_blin

Помогите пожалуйста написать программы (Паскаль)... Спасибо за ранее=)))
1) Дана не пустая последовательность не нулевых целых чисел, за которой следует 0:
Найти порядковый номер того из них, которое наиболее близко к указанному целому числу.
2)Вычислить бесконечную сумму с заданной точностью eps (eps>0).
Считать, что точность достигнута, если очередное слагаемое по модулю меньше eps - все последующие слагаемые можно не учитывать
S=1/1^2+1/2^2+...+1/i^2+...
3)Написать функцию для нахождения количества различных элементов вектора, не используя дополнительных массивов
4)Текст задан строкой: var St: string (напечатать все слова, отличные от Hello)
5)Написать функцию: function Test(word:string):boolean
принимающие значение True, если строка является словом
Спасибо ещё раз за ранее за помощь=)))