Array Dan Record

uses wincrt;
type kasir=record
furnitur:string[20];
harga:integer;
jenis_kayu:string[20];
end;
var
bayar:array[1..6] of kasir;
a,b,c:integer;
begin
writeln('banyaknya barang');readln(b);
for a:=1 to b do
begin
write(a,'. nama furnitur ');readln(bayar[a].furnitur);
write(a,'. jenis kayu ');readln(bayar[a].jenis_kayu);
write(a,'. harga per barang ');readln(bayar[a].harga);
writeln('________________________________________________________');
end;
clrscr;
writeln(' cv.anugrah reaya ');
writeln('___________________________________________________________');
writeln('no nama furnitur jenis kayu harga per barang');
writeln('___________________________________________________________');
for a:=1 to b do
begin
writeln(a:2,' ',bayar[a].furnitur:12,' ',bayar[a].jenis_kayu:16,' ',bayar[a].harga:17,' ');
end;
end.