Задание по двухмерным массивам

uses crt;
const n=5;
type mas=array[1..n,1..n] of byte;
procedure Vvod(var a:mas;c:string;var t:text;var s:string);
var i,j:byte;
begin
write('Введите имя файла для записи:');
readln(s);
assign(t,s);
rewrite(t);
writeln('Массив ',c);
writeln(t,'Massiv ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(9)+1;
    write(a[i,j]:3);
    write(t,a[i,j]:4);
   end;
  writeln;
  writeln(t,'');
 end;
writeln;
close(t);
end;
procedure NewMas(var t:text;var s:string;a1,a2:mas;var a3:mas;c:string);
var i,j:byte;
begin
write('Введите имя файла для записи итогого массива:');
readln(s);
assign(t,s);
rewrite(t);
writeln('Массив ',c);
writeln(t,'Massiv ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if odd(a1[i,j]+a2[i,j])then a3[i,j]:=a1[i,j]*a2[i,j]
    else a3[i,j]:=a1[i,j]+a2[i,j];
    write(a3[i,j]:3);
    write(t,a3[i,j]:5);
   end;
  writeln;
  writeln(t,'');
 end;
writeln;
close(t);
end;
var a1,a2,a3:mas;
    f,g,h:text;
    n1,n2,n3:string;
begin
clrscr;
randomize;
Vvod(a1,'A1',f,n1);
Vvod(a2,'A2',g,n2);
Newmas(h,n3,a1,a2,a3,'A3');
write('Матрицы записаны в файлы ',n1,' ',n2,' ',n3);
readln
end.