Какова архиватора не существует?​

Var
  a: array[1..10] of integer;
  i, max, imax, min, imin: integer;

begin
  Randomize;
  max := 0;min := 101;
  Write('Исходный массив:        ');
  for i := 1 to 10 do
  begin
    a[i] := random(100) + 1;
    Write(a[i], ' ');
  end;
  Writeln();
  For i:= 1 to 10 do begin
   if a[i] > max then
    begin
      max := a[i];
      imax := i;
    end;
    if a[i] < min then
    begin
      min := a[i];
      imin := i;
    end;
  end;
  swap(a[imax], a[imin]);
   Write('Преобразованный массив: ');
   For i:= 1 to 10 do
     Write(a[i], ' ');
   Writeln;
   Write('Я поменял местами ', imax, ' и ', imin, ' элементы');
end.

Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Rewrite(f);
  SeqRandom(20,-50,50).foreach(t->Write(f,t));
  f.Close
end.

А теперь, собственно, решение задачи

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Reset(f);
  var k:=0;
  var b:integer;
  while not Eof(f) do begin
    Read(f,b);
    if b.IsEven then k+=1
    end;
  f.Close;
  Writeln('Кол-во четных компонент файла равно ',k)
end.

И последнее - программа распечатки значений компонент файла. Для контроля.

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Reset(f);
  var b:integer;
  while not Eof(f) do begin Read(f,b); Print(b) end;
  Writeln;
  f.Close
end.