Выдаёт 0 в консоли Far Manager

const N=5000;
var f:file; a:array[1..N] of byte; i,k: longint; c:byte;
begin
  assign(f,ParamStr(1));
  reset(f,1);
  blockRead(f,a,N,k);
  for i:=1 to (k div 2) do begin
    c:=a[i]; a[i]:=a[k-1+1]; a[k-i+1] := c;
    end;
    seek(f,0);
    blockwrite(f,a,k,k);
    close(f);
end.

var f:file; //файл без типа (не текстовый)
    a:array[1..N] of byte; i,k: longint; c:byte;//все числа целые

var f:file of real;

a:array[1..N] of byte; i,k: longint; c:byte;

var 
   f : file of real;
   r : real;
   cnt : integer;
begin
  assign(f,ParamStr(1));
  reset(f);
  cnt := 0;
  while Not Eof(f) do begin
      Read(f,r); if abs(r)<0.0000001 then Inc(cnt);
  end;
  Close(f);
  WriteLn('Found ',cnt,'  zero numbers ');
end.

uses
  sysutils;
var
  k: longword;
  x: double;
  f: text;
begin
  if fileexists(ParamStr(0)) then
    begin
      assign(f, ParamStr(0));
      reset(f);
      while not seekeof(f) do
        begin
          read(f, x);
          if x = 0 then inc(k)
        end;
      write('Количество нулевых чисел в файле ', k);
      close(f)
    end
  else write('Файл не найден');
  readln
end.