1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
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.