Сложение матриц и запись их в массив

uses crt;
Const
Nmax=10;
Type
 Matrix=array [1..Nmax,1..Nmax] of integer;
Var
A,B,C,N,K:matrix;
i,j,z,h:integer;
f1,f2:text;
s:integer;
name,names:string;
 
function fi:boolean;
         begin
         {$i-}
         assign(f1,name);
         reset(f1); close (f1);{$i+}
         fi:=(ioresult=0); end;
 
Procedure Vvod;
Var
i,j:integer;
Begin
assign(f1,name);
if not fi=true then  rewrite(f1);
            For i:=1 to z do
            For j:=1 to h do
                            Begin
                            Write ('[',i,',',j,']=');
                            Read (A [i,j]);
                          write(f1,a[i,j]);
                            End;
            For i:=1 to z do
                          Begin
                          For j:=1 to h do
                          Write (A [i,j]:5);
                          Writeln
                          End;
            For i:= 1 to z do
                           For j:=1 to h do begin
                           Write('[',i,',',j,']=');read(b[i,j]);
                           write(f1,b[i,j]);
                           end;
            For i:=1 to z do
                          Begin
                          For j:=1 to h do
                          Write (b[i,j]:5);
                          Writeln
                          End;
                          write(f1);
                          close(f1);
                          End;
 
Procedure clowenie (A, B: matrix; z,h: integer; Var C: matrix);
Var
i, j: integer;
Begin
assign(f2,'mat.txt');
reset(f1);rewrite(f2);
read(f1);
while not eof(f1) do begin
                     for i:=1 to z do
                     for j:=1 to h do begin
                     read(f1,a[i,j]);
                     end;
                     for i:=1 to z do
                     for j:=1 to h do begin
                     read(f1,b[i,j]);
                     END;
                     For i:= 1 to z do
                     For j:= 1 to h do
                     C [i, j]:= A[i,j]+B[i,j];
                     write(f2,c[i,j]);
close(f1);close(f2);
End;end;
 
procedure vivod;
begin
reset(f2);
FOR i:=1 to z do begin
                 for j:=1 to h do
                 write(c[i,j]:5);
                 writeln
                 end;
close(f2);
end;
 
Begin
clrscr;
writeln('ўўҐ¤ЁвҐ Ё¬п д*©«*');read(name);
Writeln ('vvedite razmernost matric A, B: ');
writeln('vvedite kolli4estvo strok');
Read (z);
writeln('vvedite kolli4estvo stolbcov');
read(h);
writeln;
Vvod;
Writeln;
clowenie (A,B,z,h,N);
vivod;
End.