Создать файл, где компонентой будет матрица из N строк и N столбцов (квадратная)....

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]:6: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;{если Esc, заканчиваем}
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.