Модуль, работа с текстовым файлом

[Soul]

Здравствуйте! Помогите, пожалуйста, сделать небольшое дополнение к уже сделаной мною проге -

program lb;
var
   mas:array[1..4,1..4] of integer;
   i,k,sum,min,stl:integer;
begin
   sum:=0; min:=9999;
   writeln('Vvedite elementi massiva');
   for i:=1 to 4 do
   for k:=1 to 4 do
        readln(mas[i,k]);
   writeln('Massiv:');

   for i:=1 to 4 do
   begin
        writeln;
        for k:=1 to 4 do write(' ',mas[i,k]);
   end;

   for k:=1 to 4 do
   begin
        for i:=1 to 4 do
        begin
             sum:=sum+mas[i,k]*mas[i,k];
        end;
   writeln;
   writeln('Suma elementov k-go stolbca= ',sum);
   if min>sum then
      begin
           min:=sum; stl:=k;
      end;
   sum:=0;
   end;

   writeln;
   writeln('Proizvedenie kvadratov elementov stolpca naimenshee v ',stl,' stolpce');
   readln;
end.

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

[Alar]

http://delphibasics.ru/AssignFile.php