задачи Опции

[mestnikov]

Здраствуйте, началась сессия, опять долги по программированию, прошу помочь

1)
1. Задан одномерный массив Х длины N, где N-четное. Сформировать два массива Р и Т, включая в первый элементы исходного массива с четными индексами, а во второй-с нечетными. Указание: в цикле заполнять P(i)=X(2×i), T(i)=X(2×i-1) при i=1,3,5,....,N/2.

2. Заменить нулями элементы матрицы размером M×N, расположенные по периметру.

2)
Вычислить сумму тех элементов матриц А, номера строк и столбов которых принадлежат соответственно непустым множествам S1 и S2 типа Nom.
Cons n=10;
Type Nomer= 1...n;
Матрица= Array[Nomer,Nomer] of Real;

3)Описать используя структуру данных запись,почтовую сортировку (город,улица,дом,квартира,кому,ценность).Ставить программу,определяющую:
1)если адрес куда отправлено более 1 посылки,если есть то сколько и кому

4)Описать процедуру Smooth(A,N),заменяющую каждый элемент вещественного массива А размера N на его среднее арифметическое со своими соседями ("сглаживание массива").С помощью этой процедуры выполнить пятикратное сглаживание данного массива А размера N.выводя на экран результаты каждого сглаживания.

5)Дан символьный файл f.Группы символов,разделенные пробелами (одним или несколькими)и не содержашие пробелов внутри себя,будем называть словами.Удалить из файла все однобуквенные слова и лишние пробелы.Результат записать в файл g.Типизированные файлы.

6)Проверить,образуют ли элементы целочисленного массива размера N арифметическую прогрессию.Если да,то вывести разность прогрессии,если нет - вывести

помогите пожалуйста