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

const
     n=12;
type
    mas=array [1..n] of integer;
    fil=file of integer;
var
   f1,f2:fil;
   z:mas;
 
   k,i,a,b,c,d,max,min:integer;
BEGIN
assign(f1,'01.bat');
rewrite(f1);
a:=0;
max:=0;
min:=0;
for i:=1 to n do
    begin
    write(f1,z[i]);
    if z[i] div 2=1 then
       a:=a+z[i];
    if z[i]>max then max:=z[i];
    if z[i]<min then min:=z[i];
    end;
b:=max-min;
c:=0;
for i:=1 to n do
    if i mod 2<>0 then c:=c+z[i];
reset(f1);
while not eof(f1) do
      begin
      read(f1,k);
      write(k:3);
      end;
close(f1);
assign(f2,'02.bat');
rewrite(f2);
write(f2,a+b+c);
reset(f2);
read(f2,k);
writeln(#13,k);
close(f2);
readln;
END.

var a:array[0..20] of integer;
    i,l,j,f:integer;
 begin
  for i:=1 to 12 do
   begin
    a[i]:=random(10);
    write(a[i]:3);
   end;
   writeln;
   a[15]:=10;
   
  for i:=1 to 12 do
   begin
    if a[i]<a[12] then a[13]:=a[13]+a[i];   
    if a[i]>a[14] then a[14]:=a[i];         
    if a[i]<a[15] then a[15]:=a[i];        
    if i mod 2<>0 then a[16]:=a[16]+a[i];   
   end;
   Writeln(a[13]+(a[14]-a[13])+a[16],' Ответ');
   Writeln(a[13]:3,' Сумма чисел меньше посмледнего');
   Writeln(a[14]:3,' Максимальное число массива');
   Writeln(a[15]:3,' Минимальное число массива');
   Writeln(a[16]:3,' Сумма нечётных');
 end.

var a:array[0..20] of integer;
    i,l,j:integer;
    f: file of integer;
 begin
  assign(f,'FF.RLV');
  rewrite(f);
  for i:=1 to 12 do
   begin
    j:=random(10);
    write(f,j);
   end;
   close(f);
 
   i:=1;
   reset (f);
    while not eof (f) do
     begin
      read (f, j);
      a[i]:=j;
      i:=i+1;
     end;
     close (f);
     
     
  for i:=1 to 12 do
   begin
    write(a[i]:3);
   end;
   writeln;
   a[15]:=10;
   
   for i:=1 to 12 do
   begin
    if a[i]<a[12] then a[13]:=a[13]+a[i];
    if a[i]>a[14] then a[14]:=a[i];
    if a[i]<a[15] then a[15]:=a[i];
    if i mod 2<>0 then a[16]:=a[16]+a[i];
   end;
   {Writeln(a[13]+(a[14]-a[15])+a[16]:3,' Ответ');    
   Writeln(a[13]:3,' Сумма чисел меньше посмледнего');
   Writeln(a[14]:3,' Максимальное число массива');
   Writeln(a[15]:3,' Минимальное число массива');
   Writeln(a[16]:3,' Сумма нечётных');}                        // Всё что в фигурных скобках для наглядной проверки, можно удалить
     rewrite(f);
     j:=a[13]+(a[14]-a[15])+a[16];
      write(f,j);
     close(f);
   
   reset (f);
    while not eof (f) do begin
        read (f,j);
        writeln (j);
    end;
 
    close (f);
 
  end.

j:=random(10)

writeln('Введите число');
reanln(j);