Записать в файл F элементы вектора, имеющего меньшее количество нулей

{Сформировать векторы 1 1A N и 2 2A N целого типа, вывести их. Записать
в файл F элементы вектора, имеющего меньшее количество нулей, затем
другого вектора, далее записать максимальный и минимальный элементы из
A1. Файл вывести.}
const
  n=10;
type
  vector=array [1..n] of integer;
var
  a1,a2:vector;
  y,mx,mn:integer;
  f:file of integer;
 
procedure CreateAndOutputVector(var x:vector);
var
  i:integer;
begin
  for i:=1 to n do
    begin
      x[i]:=Integer(random(n)) - n div 2;
      write(x[i]:4);
    end;
  writeln;
end;
 
function HowZeroes(x:vector):integer;
var
  k,i:integer;
begin
  k:=0;
  for i:=1 to n do
    if x[i]=0 then
      inc(k);
  HowZeroes:=k;
end;
 
procedure FindMaxMin(x:vector; var max,min:integer);
var
  i:integer;
begin
  max:=x[1];  min:=x[1];
  for i:=2 to n do
    begin
      if x[i]<min then
        min:=x[i];
      if x[i]>max then
        max:=x[i];
    end;
  writeln;
end;
 
procedure SaveVector(x:vector);
var
  i:integer;
begin
  for i:=1 to n do
    write(f,x[i]);
end;
 
 
begin
  randomize;
  writeln('Vector # 1:');
  CreateAndOutputVector(a1);
  writeln('Vector # 2:');
  CreateAndOutputVector(a2);
  assign(f,'data.dat');
  rewrite(f);
  if HowZeroes(a1)>HowZeroes(a2) then
    begin
      SaveVector(a2);
      SaveVector(a1);
    end
  else
    begin
      SaveVector(a1);
      SaveVector(a2);
    end;
  FindMaxMin(a1,mx,mn);
  write(f,mx,mn);
  close(f);
  writeln('File:');
  reset(f);
  while not eof(f) do
    begin
      read(f,y);
      write(y:4);
    end;
  close(f);
  readln;
end.