Создать файл, где компонентой будет матрица

uses crt;
const n=4;
type matr=array[1..n,1..n] of real;
     ff=file of matr;
     gg=file of real;
procedure VvMatr(var mt:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=10*random-4;
end;
procedure VyvMatr(var mt:matr);
var i,j:byte;
begin
for i:=1 to n do
  begin
    for j:=1 to n do
    write(mt[i,j]:5:2);
    writeln;
  end;
writeln;
end;
procedure ReadFF(var f:ff;var mt:matr);
begin
reset(f);
while not eof(f) do
  begin
    read(f,mt);
    VyvMatr(mt);
  end;
close(f);
end;
procedure ReadGG(var g:gg;var x:real);
begin
reset(g);
while not eof(g) do
  begin
    read(g,x);
    write(x:6:2);
  end;
close(g);
end;
procedure Obmen(var mt:matr);
var i,j:byte;
    x:real;
begin
for i:=1 to n do
 begin
   x:=mt[i,i];
   mt[i,i]:=mt[i,n-i+1];
   mt[i,n-i+1]:=x;
 end;
end;
function Sred(mt:matr):real;
var i,j,k:byte;
    sr:real;
begin
sr:=0;k:=0;
for i:=1 to n do
for j:=1 to n do
if mt[i,j]<0 then
  begin
   sr:=sr+mt[i,j];
   k:=k+1;
  end;
Sred:=sr/k;
end;
var fmt:ff;
    fsr:gg;
    m:matr;
    ch:char;
    i:byte;
    a:real;
begin
clrscr;
randomize;
assign(fmt,'matr');
rewrite(fmt);
assign(fsr,'sred');
rewrite(fsr);
writeln('Введите матрицы, окончание ввода Esc:');
i:=0;
repeat
i:=i+1;
VvMatr(m);
write(fmt,m);
writeln('     Матрица ',i);
VyvMatr(m);
ch:=readkey;
until ch=#27;
close(fmt);
readln;
clrscr;
writeln('Исходный файл:');
ReadFF(fmt,m);
readln;
reset(fmt);
for i:=0 to filesize(fmt)-1 do
  begin
   seek(fmt,i);
   read(fmt,m);
   a:=Sred(m);
   write(fsr,a);
   Obmen(m);
   seek(fmt,i);
   write(fmt,m);
  end;
writeln;
writeln('Файл матриц после обмена:');
ReadFF(fmt,m);
readln;
writeln('Файл средних содержаний:');
ReadGG(fsr,a);
readln
end.