Чтение из файла - запись в файл

[VaLenOK007]

Привет кодеры. Помогите с оптимальным решение, как лучше всего в этот:

{6.Все элементы матрицы Xn,n,
лежащие ниже второстепенной
диагонали, заменить суммой
элементов с дробной части,
стоящих в нечетных столбцах}

const
n = 5;

var
x : array [1..n , 1..n] of real;
i,j : integer;
sum : real;

begin
sum := 0;

writeln('Введите матрицу',n,'на',n,'элементов:');
for i := 1 to n do //ввод матрицы и одновременное подсчитывание нужной суммы
    for j := 1 to n do
        begin
             write('x[',i,',',j,']=>');
             read(x[i,j]);
             if j mod 2 = 1 then
                sum := sum + frac(x[i,j]);
        end;

writeln ('Исходная матрица');
for i := 1 to n do //вывод матрицы и её преобразование
    begin
         for j := 1 to n do
             begin
                  write(x[i,j]:7:2);
                  if i > j then
                     x[i,j] := sum;
             end;
         writeln;
    end;
writeln;

writeln ('Изменённая матрица');

for i := 1 to n do  //вывод изменённой матрицы
    begin
         for j := 1 to n do
             write(x[i,j]:7:2);
         writeln;
    end;


readln;
end.

код впихнуть чтение матрицы из файла, и запись результата в файл. Желательно с попутными комментариями чего делалось, и как оно работает

заранее всем спасиибо

[Бинари]

В разделе var надо объявить две переменные fin,fout:Text;, далее в самом начале программы написать Assign(fin,"путь к входному файлу");
Assign(fout, "путь к выходному файлу"); и во всех процедурах ввода первым параметром должен быть fin, а во всех процедурах вывода - fout.