Сформировать файл из двух матриц по правилу

uses crt;
const nmax=20;{максимальный размер матриц}
type matr=array[1..nmax,1..nmax] of real;
     tfile=file of real;
var m:byte;{количество столбцов глобальная переменная, везде одинаковое значение}
{создание матриц}
procedure Vvod(var a:matr;var n:byte;c:string);
var i,j:byte;
begin
writeln('Матрица ',c);
repeat
write('Количество строк от ',m,' до ',nmax,' n=');{строк не меньше чем столбцов}
readln(n);
until n in [m..nmax];
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
end;
{запись матриц в файл}
procedure WriteFile(var f:tfile;a1,a2:matr);
var i,j,k:byte;
begin
for i:=1 to m do
 begin
  for j:=1 to m do
  write(f,a1[i,j]);
  for k:=1 to m do
  write(f,a2[i,k]);
 end;
close(f);
end;
{чтение файла}
procedure Readfile(var f:tfile);
var a:real;
begin
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:5:2);
 end;
writeln;
close(f);
end;
{преобразование=нормирование файла}
procedure Norm(var f:tfile);
var a,b,c,x:real;
    i:integer;
begin
reset(f);
seek(f,0);{читаем первый элемент}
read(f,a);
seek(f,1);{второй}
read(f,b);
x:=a;{запомним первый}
c:=(a+b)/2;{среднее}
seek(f,0);{на первое место}
write(f,c);
for i:=1 to filesize(f)-1 do{начиная со второго до конца все повторяем}
 begin
  seek(f,i);
  read(f,a);
  c:=(a+x)/2;
  x:=a;
  seek(f,i);
  write(f,c);
 end;
close(f);
end;
 
var a1,a2:matr;
    n1,n2:byte;
    f:tfile;
begin
clrscr;
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Количество столбцов от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
Vvod(a1,n1,'A1');
Vvod(a2,n2,'A2');
WriteFile(f,a1,a2);
writeln('Исходный файл:');
ReadFile(f);
Norm(f);
writeln('Преобразованный файл:');
ReadFile(f);
readln
end.