Program Penyimpanan Benda

program BarangSimapanan;
uses wincrt;

type
Barang =record
Nama:string;
Kode:integer;
Stok:string;
Nilai:integer;
end;

var
Arsip:file of barang;
Brg:barang;
a:array[1..30] of integer;
d:integer;
n:integer;
begin

Clrscr;
Assign(Arsip,'Tulisan.txt');
Rewrite(Arsip);{membuat file baru}
Writeln('###############INPUT###############');
write('Masukkan Banyak Jenis Barang yang diinput:'); readln(n);


for d:=1 to n do
begin
write('Masukkan Nama Barang ke -',d, ':'); readln(brg.nama);
write('Masukkan Kode Barang -',d, ':'); readln(brg.kode);
Write('Masukkan Stok Barang -',d,':'); readln(brg.stok);
Write('================');
Write(Arsip,brg);
writeln;
end;

Reset(Arsip);
d:=1;
writeln('###############OUTPUT###############');
writeln;
Writeln('---DATA TERSIMPAN!---');
While not EOF (Arsip) do

begin
read(arsip,brg);
Writeln('Nama Barang -',d,':',brg.nama);
writeln('Kode Barang k-',d, ':',brg.kode);
writeln('Stok Barang ke-',d, ':',brg.stok);
writeln('===========');
d:=d+1;
end;
Close(Arsip);{Menutup File}
Readln;
end.