Pascal. Модуль программы и текстовый файл

[Mini Ven]

Дали задание создать модуль и текстовый файл. Модуль написал, прогу для файла тоже, но не хочет работать. Уже не знаю, в чем может быть проблема, ибо с модулями и файлами по Паскалю конкретные проблемы, хоть читал, смотрел кучу всего и все равно мало что понимаю. Создается только пустой файл ввод и все, больше ничего не пашет. Две с половиной недели убил и не получается никак. Если можете, посмотрите, пожалуйста, коды и укажите на ошибки. По желанию, исправьте(что будет лучше, конечно же).

Код модуля:

unit Mod1RGZ;
interface
 
const
  N = 20;
 
type
  TMatrA = array[1..N] of real;
  TMatrB = array[1..N, 1..N] of real;
 
procedure Vvmtr(var matrB: TMatrB; k: integer; fin: text);
procedure VyvMatr(matrB: TMatrB; k: integer);
procedure sumdig(matrB: TMatrB; var s: real; k: integer);
function calc(a, c, x: real): real;
 
implementation
 
function calc(a, c, x: real): real;           //процедура
var y: real;
begin
  if x < (a - pi) then begin
    y := a + sin(x - 2.5);
  end
  else
  begin
    y := (c - x) / 2;
    calc := y;
  end;
  writeln('Y=',y);
end;
 
// Ввод матрицы
procedure Vvmtr(var matrB: TMatrB; k: integer; fin: text);
var
  i, j: integer;
begin
  for i := 1 to k do
    for j := 1 to k do read(matrB[i, j]);
end;
 
// Вывод матрицы
procedure VyvMatr(matrB: TMatrB; k: integer);
var
  i, j: integer;
begin
  writeln('Матрица');
  for i := 1 to k do
  begin
    for j := 1 to k do
      if i=j then
        writeln('[',matrB[i, j]:7:2, '] ')
      else
        writeln(matrB[i, j]:7:2, ' ');
    writeln;
  end;
end;
 
// Подсчет суммы элементов гл.диагонали 
procedure sumdig(matrB: TMatrB; var s: real; k: integer);
var
  i: integer;
begin
  for i:=1 to k do
    if matrB[i,i] < matrB[k-1, k-1] then 
      s:=s+matrB[i, i];
  writeln('сумма элементов главной диаг. = ', s);
end;
 
end.

Код программы:

program RGZProg;
//Подключение необходимых модулей
Uses Mod1RGZ;
 
var
  fIn, fOut: text;
  y: real; // будет хранить резлультат функции
  a, c, x: real; // Для уравнения
  mA: TMatrA; // matrix
  mB: TMatrB; // matrix2
  m: integer; // размерность
  s: real; // будет хранить сумму
 
begin
  // Получаем данные из файла
  assign(fIn, 'vvodzn.txt');
  reset(fIn);
  read(fIn, m, x, a, c);
 close(fIn);
 assign(fOut, 'vyvodzn.txt');
 rewrite(fout);
   y := calc(a, c, x);
  Vvmtr(mB, m, fin);
   writeln(fOut, 'y = ', y);
  sumdig(mB, s, m);
  close(fOut);
 
end.

[BDA]

Код не запускал. Файл "ввод" нужно самому руками заполнить нужными данными, которые и считает программа. Вызов Vvmtr находится уже после закрытия fIn. А в самой процедуре Vvmtr переменная fin никак не задействуется. Процедура VyvMatr не используется. Процедура sumdig печатает результат на экран. Это из того, что бросилось в глаза.

[Mini Ven]

BDA, , понял, спасибо