фиксированная позиция в таблице

[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
   f:text;
   i:integer;
  procedure stvor;
  var
     i:integer;
     tabl:xolod;
     begin
           Assign(f,'d:\xolod.txt');
           rewrite(F);
           close(F);
           Assign(f,'d:\xolod.txt');
           append(F);
           for i:=1 to n do
           begin
            Write('virobn:');
            readln(tabl.nazvanie);
            Write('nazvanie:'); 
            readln(tabl.nazvanie);
            Write('kamera:');  
            readln(tabl.kamera);
             Write('rik:'); 
             readln(tabl.rik);
     Write('misce:'); 
     readln(tabl.misce);
     Write('cina:'); 
     readln(tabl.cina);
     Write('kilkist:'); 
     readln(tabl.kilkist);
     
      writeln(f,tabl.virobn:10,'|' ,tabl.nazvanie:15,'|',tabl.kamera:16,'|', tabl.rik:4,'|', tabl.misce:9,'|' , tabl.cina:9,'|' , tabl.kilkist:9,'|');
      end;
      close(F);
      End;
      
      Procedure Vuvid;
      var
         sss:string;
         begin
         assign(f, 'd:\xolod.txt');
         reset(F);
         while not  eof (F) do begin
         read(f,sss);
          If  (sss='1993') then
          begin
        
         writeln(sss);
         end;
         end;
         Close(F);
         
      End;
      
      begin
      
      stvor;
      vuvid;
      end.

Теперь в чём заключаеться мой вопрос. В файл основную таблицу пишет норм, но отфильтрованную ( у меня должно было еще записать в файл таблицу, холодильникик 1995 года). так вот эту таблицу в файл не пишет. как бы паскаль не может словить таблицу. Основную пишет, а такую Нет, нету фиксированной позиции. Что еще скажете вы? Может из-за того что отступі между словами постоянно разные??