файлы

[[Te[M]ka]]

вот смотри как все выходит.

[Hacker19_90]

Ну так логично! Файл типизированный! так и должно быть! Он же не текстовой!
Просто в отличии от текстового вы пишете не символами! А блоками байтовой информации!

[Shift_sk]

f:text;

я думаю так лучше

[Shift_sk]

Program PR_7_1;
uses crt;
type tovar=record
nam:string[20];
str:string[20];
obm:integer;
end;
var
f:file of tovar;
tv:tovar; 
a:array[1..5] of tovar;
naz:string[20];
sm,k,c,t,i:integer;
s,s1:string;
begin
clrscr;
assign(f,'tovar.doc');
assigm(f2,'tovar1.txt');
rewrite(f2);
reset(f);
writeln('vvod kol zap');
readln(k);
for i:=1 to 5 do
begin
writeln('Vvedite naimenovanie tovara');
readln(tv.nam);
readln(tv.str);readln(tv.obm);
write(f2,tv);end;
close(F);
close(f2);
end.

[Shift_sk]

Program PR_7_1;
uses crt;
type tovar=record
nam:string[20];
str:string[20];
obm:integer;
end;
var
f:file of tovar;
tv:tovar; 
a:array[1..5] of tovar;
naz:string[20];
sm,k,c,t,i:integer;
s,s1:string;
begin
clrscr;
assign(f,'tovar.doc');
assigm(f2,'tovar1.txt');
rewrite(f2);
reset(f);
writeln('vvod kol zap');
readln(k);
for i:=1 to 5 do
begin
writeln('Vvedite naimenovanie tovara');
readln(tv.nam);
readln(tv.str);readln(tv.obm);
write(f2,tv);end;
close(F);
close(f2);
end.