Матрицы, помогите решить 1 задачку Опции

[lesena-85]

Формулировка условия задачи

а) В матрице А поменять местами два столбца с заданными номерами
б) сформировать из элементов полученной матрицы, которые определяются как суммы элементов ее столбцов, диагональную матрицу С;
в) если среди элементов главной диагонали С нет равных, найти ее след, в противном случае вычесть из С единичную матрицу.
Помогите пожалуйста, надо очень срочно решить. а никак. и если есть возможность-поразвернутей, плиз.

[volvo]

Вот с этим как раз никаких проблем:

Program matrix_test(input, output); { добавляешь это }

{ меняешь старую процедуру enter на эту }
procedure enter(var res: mx);
var i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do read(res[i, j]); {  }
    readln;
  end;
end;

{ добавляешь в начале основной программы вот это: }
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);

  ... { остальная часть программы }

  { не забываем закрывать файлы }
  close(output);
  close(input);
end.

Естественно, что в файле матрица должна храниться в виде: N строк в каждой по N элементов...