Latihan Array

uses crt;
label atas;
var nama:string;
i,jenis:integer;
th:longint;
ppn,tb:real;
lg:char;
uk:array[1..100]of string;
harga,jml_hrg:array[1..100]of longint;
beli:array[1..100]of integer;


begin
atas:
clrscr;
th:=0;
writeln('TOKO BAJU "SECASIC"');
write('Masukkan nama pembeli : ');readln(nama);
write('Banyak jenis : ');readln(jenis);
writeln;
for i:=1 to jenis do
begin
writeln('Jenis ke ',i);
write('Ukuran jenis [S/M/L/XL] : ');readln(uk[i]);
write('Banyak beli : ');readln(beli[i]);
if uk[i]='S'then
harga[i]:=150000
else if uk[i]='M'then
harga[i]:=250000
else if uk[i]='L' then
harga[i]:=350000
else if uk[i]='XL' then
harga[i]:=500000
else
harga[i]:=0;
jml_hrg[i]:=harga[i]*beli[i];
writeln;
end;
clrscr;
writeln('TOKO BAJU "SECASIC"');
writeln('Nama pembeli : ',nama);
writeln(' _________________________________________________');
writeln('|No|Ukuran Baju| Harga Baju |Banyak| Jumlah Harga |');
writeln(' _________________________________________________');
for i:=1 to jenis do
begin
th:=th+jml_hrg[i];
gotoxy(3,i+5);write(i);
gotoxy(10,i+5);write(uk[i]);
gotoxy(18,i+5);write('Rp.',harga[i]);
gotoxy(32,i+5);write(beli[i]);
gotoxy(39,i+5);writeln('Rp.',jml_hrg[i]);
end;
writeln(' _________________________________________________');
gotoxy(26,i+7);writeln('Total Harga: Rp.',th);
ppn:=0.1*th;
gotoxy(26,i+8);writeln('Pajak (PPN): Rp.',ppn:2:0);
tb:=th+ppn;
gotoxy(26,i+9);writeln('Total Bayar: Rp.',tb:2:0);
writeln;
write('Ingin Hitung Lagi[Y/T]: ');readln(lg);
if upcase(lg)='Y' then
goto atas;

end.