Записать список record в файл

program tabl;
uses crt;
type table=record
name:string[20];
   s:word; {stoimost'}
      G:byte; {Garantiya}
   T:record
    tn:integer;
    tk:integer;
    end; {Temperature}
   CV:string[6]; {Color}
   M:byte; {Massa}
   E:word; {Energy}
   V:real; {Objem}
   {IP:b,s;} {Istochnik pitaniya}
  end;
var spisok: array [1..20] of table;
   I,k: integer; f:text;
begin
ClrScr;
assign(f,'C:\price.txt');
 
   rewrite(f);
   k:=1;
   while k<=20 do
   begin
   for I:=1 to 20 do
   begin
   with spisok[i] do
   begin
 
      writeln('vvedite sved o', I , '-m pribore');
      writeln('nazvanie');
      write(f,'nazvanie - ');
      readln(name);
      writeln(f,name);
      writeln('stoimost');
      write(f,'stoimost - ');
      readln(s);
      writeln(f,s);
      writeln('Garantiya');
      write(f,'Garantiya - ');
      readln(G);
      writeln(f,G);
      writeln('Temperature');
      write(f,'Temperature - ');
      readln(t.tn);
      write(f,t.tn);
      readln(t.tk);
      write(f,' - ');
      writeln
      (f,t.tk);
      writeln ('Cvet');
      write (f,'Cvet - ');
      readln(CV);
      writeln(f,CV);
      writeln('Massa');
      write(f,'Massa - ');
      readln(M);
      writeln(f,M);
      writeln('Energy');
      write(f,'Energy - ');
      readln(E);
      writeln(f,E);
      writeln('Objem');
      write(f,'Objem - ');
      readln(V);
      writeln(f,V); k:=k+1;
          {  writeln ('IP');
      readln(IP); }
   end;
   end;
   end;
   writeln;
   writeln ('end');
   writeln ;
      for I:=1 to 1 do
      if spisok[I].s=100 then
      with spisok[I] do
         write(' S: ', s,' ',g,' ',t.tn,'-',t.tk);
         close(f);
         readln;
end.

var
  f: file of table;
 
....
  Assign(f,...);
  Rewrite(f);
  for i:=1 to n do write(f,spisok[i]);
  Close(f);

assign(f,'C:\price1.dat');
   rewrite(f);
   k:=1;
   while k<=20 do
   begin
   for I:=1 to 20 do
   begin
   with spisok[i] do
   begin
      writeln('vvedite sved o', I , '-m pribore');
      writeln('nazvanie');
      readln(name);
..................................
 readln(IP);
      write(f,spisok[i]);
   end;

 for I:=1 to 20 do
      if (spisok[I].s<100) and (spisok[i].T) and (как одновременно ещё и по цвету? ) then

      with spisok[i] do if (-30<=T) and (T<=30) and ((CV='белый') or (CV='бежевый с блестками')) then ...

for i:=180 to 230 do write(Chr(i));

n:=0;
whilie not EoF(f) do begin
  read(f,spisok[n]);
  Inc(n)
end;

reset(f);
n:=0;
while not EoF(f) do 
 begin
  Inc(n);
  read(f,spisok[n]);