Косте

type
   tovar = record
      nazv:  string[20];
      kolvo: word;
      cena:  real;
   end;
var
   f: file of tovar;
   a: tovar;
BEGIN
   assign(f, 'tovar.dat'); reset(f);
   while not(eof(f)) do
   begin
      read(f, a);
      writeln(a.nazv:10, a.kolvo:5, a.cena:9:2);
   end; close(f);
END.