Вопрос по процедурам-функциям?

Program B21;
 Uses crt;
 Const n=3;m=4;
 
 Type
  F1=text;
  Mas=array[1..n,1..m] of real;
 
 Var
  F:F1;
  A:mas;
  I,j:integer;
  Pr:real;
 
 Procedure vvod (var a:mas);
 Begin
 Rewrite (F);
 Writeln (F,'Исходная матрица A:');
  For I:=1 to n do
   Begin
    Writeln (f);
     For j:=1 to m do
      Begin
       Writeln ('Введите элемент',I:2,i:2);
       Readln (A[i,j]);
       Write (F,A[i,j]:5:0);
      End;
   End;
 Close (f);
 End;
 
 Procedure Udalenie (Var a:mas);
 Begin
 Append (F);
 Writeln (F);
 Writeln (F);
 Writeln (F,'Массив А, после удаления 2-ой строки');
  For i:=2 to n-1 do
   For j:=1 to m do
    Begin
     A[i,j]:=A[i+1,j];
    End;
     For I:=1 to n-1 do
      Begin
       Writeln (f);
        For j:=1 to m do
         Begin
          Write (F,A[i,j]:5:0);
         End;
      End;
 Close (f);
 End;
 
 Function Proizv (Var a:mas):real;
 Begin
 Append (f);
 Writeln (f);
 Writeln (f);
 Writeln (f,'Произведение элемнетов 1-ой строки ');
 Writeln (f);
 Pr:=1;
  For j:=1 to m do
   Begin
    Pr:=Pr*A[1,j];
   End;
    Write (f,Pr:2:1);
 Close (f);
 End;
 
 Begin
  Assign (F,'mas.txt');
  Clrscr;
  Vvod (a);
  Udalenie (a);
  Proizv (a);
  Readln
 End.