Из исходного массива сформировать другой массив заменой нулевых элементов

Program z;
Var i, max,N: Integer;
a: array [1..100] of integer;
f1, f2: Text; 
Begin
assign(f1, 'in.txt');
assign(f2, 'out.txt');
Reset(f1);
Read(f1, N);
For i:=1 to N do Read(f1, a[i]);
Close(f1);
max:=1; 
For i:=1 to N do If a[max]<a[i] Then max:=i;
 begin
   For i:=1 to N do If a[i]=0 Then a[i]:=a[max];
    Rewrite(f2);
    WriteLn(f2,'change array');
    For i:=1 to N do Write(f2,a[i],' ');
    Close(f2);
 End;
End.

Program z;
type vect=array [1..100] of integer;
Var N:Integer;
    a:vect;
    f1,f2:Text; 
    
procedure Vvod (var f1:text; var a:vect; N:integer);
var i:integer;
begin
  Reset(f1);
  Read(f1, N);
  For i:=1 to N do
   Read(f1, a[i]);
  Close(f1);
end;
 
procedure Obrab (var a:vect; N:integer);
var i,max:integer;
begin
  max:=1; 
  For i:=1 to N do
   If a[max]<a[i] Then
    max:=i;
  For i:=1 to N do
   If a[i]=0 Then
    a[i]:=a[max];
end;
 
procedure Vyvod (var f2:text; a:vect; N:integer);
var i:integer;
begin
  Rewrite(f2);
  WriteLn(f2,'change array');
  For i:=1 to N do
   Write(f2,a[i],' ');
  Close(f2);
end;
 
Begin
  assign(f1, 'in.txt');
  assign(f2, 'out.txt');
  Vvod (f1,a,N);
  Obrab (a,N);
  Vyvod (f2,a,N);
End.