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

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

Вот попыталась переделать, не знаю правильно ли (возникают вопросы насчет добавления файлов):

Код

program test;
uses crt;

label 1;
var
  arr: array[1 .. 100] of integer;
  i, n: integer;
  f: file of integer;
  s: string;
begin
  clrscr;
  assign(f, 'f_in.dat');
1:writeln('view file -  v / edit file - e / exit - x : ' );
  readln(s);
  if s = 'v' then
  begin
  reset(f);
  writeln('View file:');
  while not eof(f) do
    begin
      read(f, arr[n]);
      write(arr[n], ' ');
    end;
  readln;
  goto 1;
  end;
  if s = 'e' then
  begin
  reset(f);
  writeln('Enter number of elements: ');
  readln(n);
  writeln;
  writeln('Enter elements: ');
  for i := 1 to n do
    begin
      write('A[',i,'] : ');
      readln(arr[1]);
      write(f, arr[1]);
    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;

  reset(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);
goto 1;
end;
if s = 'x' then
end.