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

[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]

приведи пожалуйста текст того, то ты запускаешь, + как ты можешь сама создать типизированный файл ? Это только программно можно сделать ...

Код

var
 arr: array[1 .. 100] of integer;
 i, n: integer;
 f: file of integer;
begin
Assign(f, 'f_in.dat'); Rewrite(f);
Write('Количество элементов: '); ReadLn(n);
for i := 1 to n do begin
 write('a[', i:2, '] = '); readln(arr[1]);
 write(f, arr[1]); { именно 1 а не i }
end;
close(f);
 assign(f, 'f_in.dat');
 reset(f); n := 0;
 while not eof(f) do begin
 inc(n); read(f, arr[n]);
 end;
 rewrite(f);
 for i := 1 to n div 2 + n mod 2 do begin
   write(f, arr[i]);
   if i <> (n - i + 1) then
     write(f, arr[n - i + 1]);
 end;
 close(f);
end.