Работа с матрицами и файлами, Помогите написать две программы. Опции

[Iren]

Надо к завтрашнему дню сдать две задачи (крайний срок), сама виновата, дотянула донельзя.
Очень прошу, помогите решить:
1.
Описать функцию sum(A, S1, S2), вычисляющую сумму тех элементов матрицы А, номера строк и столбцов которых принадлежат соответственно непустым множествам S1 и S2 типа ном.
const n=10; type номер=1..n; матрица=array [номер, номер] of real; ном = set of номер
2.
В данном файле целых чисел с элементами A1, A2, …, AN (N — количество элементов в файле). Заменить исходное расположение его элементов на следующее: A1, AN, A2, AN–1, A3, … .

Очень прошу помогите...

[Iren]

ГИГАНТСКОЕ Вам спасибо To: volvo , вторую программу я еще не смотрела, а вот по первой возникло несколько вопросов:
1. На экран у меня почему-то выводятся две абсолютно одинаковые матрицы.
2. Наверное лучше сделать ввод матрицы вручную (тоесть убрать RANDOM), но как это сделать. Или оставить ввод случайных чисел