запись в текстовый файл

[mishammm]

Здраствуйте!
Было задание: задание создать программу создание текстового файла и информацией о холодильника. вывести таблицу данных файла и ту часть, которая включает в себя ведомости о холодильниках (ну это неважно я записал всё равно). Предвидеть добавление или удаление файла (корректировка). Прогу написал, с созданием текстового файла проблема

const 
      n=4;
 type
    xolod = record
      virobn:string[50];
      nazvanie:string[45];
      kamera:real;
      rik:integer;
      misce:string[45];
      cina:real;
      kilkist:real;
    end;
   var
      i:integer;
      tabl:array[1..n] of xolod;
      
      f:text;
      s:string;
      procedure lin(m:integer);
      var
         i:integer;
  begin
  for i:=1 to m do
  write('-');
  writeln;
  end;
  
  begin
  
  assign(f,'xolodilnik.txt');
  
  append(f);
  Writeln('Vvedi danni');
  For i:=1 to n do
  begin
   Write('virobn:'); readln(tabl[i].virobn);
     Write('nazvanie:'); readln(tabl[i].nazvanie);
     Write('kamera:');  readln(tabl[i].kamera);
     Write('rik:'); readln(tabl[i].rik);
     Write('misce:'); readln(tabl[i].misce);
     Write('cina:'); readln(tabl[i].cina);
     Write('kilkist:'); readln(tabl[i].kilkist);
     writeln(f,tabl[i].virobn,' ',tabl[i].nazvanie,' ', tabl[i].kamera, ' ', tabl[i].rik, ' ' , tabl[i].misce, ' ' , tabl[i].cina , ' ' , tabl[i].kilkist);
  close(f);
  end;
  reset(f);
  
  while not eof(f) do begin
       while not eoln(f) do begin
  read(f,s);
  write(s);
  end;
  end;
  close(f);
  Lin(69);
  writeln(' | Виробництво | Назва | Обэм Камери | Рік | Місце | Ціна | Кількість|');
  Lin(69);
  For i:=1 to n do
  begin
   write(' |', tabl[i].virobn:10,'|');
write(tabl[i].nazvanie:10,'|',tabl[i].kamera:13,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');
writeln;
Lin(69);
end;
  writeln;
  writeln('vidsortovano');
  Lin(69);
  For i:=1 to  n do
  begin
  If  (tabl[i].rik = 1993) then
  begin
write(' |', tabl[i].virobn:10,'|');
write(tabl[i].nazvanie:15,'|',tabl[i].kamera:16,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');
  writeln;
  Lin(69);
  end;
  end;
  End.

Помогите найти ошибку в записи в текстовый файл пожалуйста, выбивает ошибку на

  writeln(f,tabl[i].virobn,' ',tabl[i].nazvanie,' ', tabl[i].kamera, ' ', tabl[i].rik, ' ' , tabl[i].misce, ' ' , tabl[i].cina , ' ' , tabl[i].kilkist);

Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта.

[mishammm]

данные о 3 холодильниках записывает норм, а на 4 ошибка

[eoln]

А что это там после этой строчки в цикле делает close(f); ?

Дальше тоже что-то не так ))

[mishammm]

Сообщение от eoln

А что это там после этой строчки в цикле делает close(f); ?

Дальше тоже что-то не так ))

поставил close(f) после end; теперь вообще не сортирует табличку

[mishammm]

ну пожалуйста, укажите на мои ошибки, кто нибудь