Master pascal... Bantuin pliss

[Darkc0der]

assalamualaikum gan

ane ada sdikit kesulitan dala pascal ne,,

mohon bantuannya ye...

<div style="margin:20px; margin-top:5px">
Spoiler for program:


<div class="alt2" style="margin: 0px; padding: 6px; border: 1px inset;">
<div style="display: none;">


program penjualanpascal;



uses crt;



type



penjualan = record



nb :string[12]; {nb:nama barang,hb:harga barang,jb:jumlah barang, th:total harga}



hb,jb,th:longint;



kode:byte;



end;







var



l : array [1..1000] of penjualan;



x,i,pil, total_harga, diskon, total_bayar,n : longint;







mn: byte;



lagi:char; b:string;



label menu;



begin



clrscr;



menu:



clrscr;



writeln('menu data');



writeln(' 1.input data');



writeln(' 2. data');



writeln(' 3.transaksi');



write('inputkan pilihan :');readln (mn);



case mn of



1:begin



x:=0;



repeat



clrscr;



writeln('========= ==================');



inc(x);



writeln( 'kode barang = A',x);



write('nama barang :');readln (l[x].nb);



write('harga barang :');readln (l[x].hb);



writeln('isi data lagi (y/n) : ') ;readln(lagi);



until(lagi'y')and(lagi'Y');



goto menu;



clrscr;



end;











2:begin



clrscr;



writeln('#======== ===============#');



writeln('|kode| Nama Barang | Harga Satuan |');



writeln('#======== ===============#');



for i:=1 to x do



begin



writeln('| A',l[x].kode,'| ',l[i].nb,' |',l[i].hb,'|' );



end;



writeln;



write('kembali ke menu awal y/n : '); readln (b);



if b = 'y' then



goto menu;



end;















3:begin



repeat



clrscr;



writeln(' ##>========= TOKO MAJu =========