Работа с файлами в Delhi. Как не сойти с ума?

У меня есть две процедуры.
Первая добавляет в файл запись:

Procedure Add_Rec(app:RecType;way:string);
    var
      f:FileType;
      recc:RecType;
      i:integer;
    begin
      Assign(f,way);
      reset(f);
      while not(Eof(f)) do
        begin
          read(f,recc);
          inc(i);
        end;
      close(f);
      rewrite(f);
      writeln('---',i);
      Seek(f,i);
      write(f,app);
      close(f);
    end;

Причем делать так :

reset(f);
      while not(Eof(f)) do
        begin
          read(f,recc);
          inc(i);
        end;
      close(f);

вместо того чтобы использовать Seek(f, FileSize(f)) мне приходится, так как FileSize всегда возвращает 0(именно в этой процедуре, в остальных работает нормально)

Вторая выводит на экран содержимое файла:

procedure output(way:string);
    var
      f:filetype;
      rec:RecType;
      i:integer;
    begin
      assign(f,way);
      reset(f);
      if filesize(f) > 0 then
        for i:=1 to filesize(f) do
          begin
            read(f,rec);
            writeln('Запись ',i,':');
            writeln('  Марка:    ',rec.model);
            writeln('  Цвет:     ',rec.color_car);
            writeln('  Гос. номер:    ',rec.state_number);
            writeln('  Владелец: ',rec.owner);
          end
      else
        writeln('Файл пуст.');
      close(f);
    end;

Вот результат:
Все записи кроме последней становятся пустыми. Что происходит? Я никак не могу понять.