Создать типизированный файл tovar.dat, содержащий сведения о товарах

program sss;
uses crt;
const n=2;
      c='c:\tovar.dat';
type usp=record
naz:string[50];
strana:string[10];
data:string[10];
cena:integer;
end;
f=file of usp;
var
fst:f;
st:usp;
i,p,k:integer;
v:char;
procedure input;
begin
rewrite(fst);
for i:=1 to n do begin
with st do begin
writeln('Nazvanie tovara');
readln(naz);
writeln('Strana');
readln(strana);
writeln('Data');
readln(data);
writeln('Cena');
readln(cena);
end;
write(fst,st);
end;
close(fst);
end;
 procedure output(var z:f);
 begin
reset(z);
WriteLn('|','Nazvanie':10,'|','Strana':11,'|','Data':11,'|','Cena':5,'|');
while not eof(z) do begin
read(z,st);
write('|',st.naz:10,'|');
write(st.strana:11,'|');
write(st.data:11,'|');
write(st.cena:5,'|');
writeln;
 
 end;
 readln;
close(z);
end;
 
begin
clrscr;
 
{$I-}
assign(fst,c);
reset(fst);
if ioresult<>0 then begin writeln('Файл не существует');
input
end
else  begin
close(fst);
writeln('Файл существует');
writeln('Заменяем y/n');
readln(v);
if v='y' then input;
end;
{$I-}
 
 
       writeln('ИСХОДНЫЙ');
        output(fst);
        writeln;
        end.