program dan design

uses crt;
label
awal,akhir;
var
napet,napem,kodpe,kodke,jns,kls:string;
hrg,jml,tot,ubay,ukem:real;
lagi:char;
begin
awal:
clrscr;
writeln('===========================================');
writeln(' Agen TIket Pesawat " QUIC AIR " ');
writeln('jl. Kalibata TImur No.37 Telp(021)7901074 ');
writeln('===========================================');
write('Masukkan Nama Pemesan :');readln(napem);
write('Masukkan Nama Petugas :');readln(napet);
write('Masukkan Kode Pesawat [B/G/S]:');readln(kodpe);
write('Masukkan Kode Kelas :');readln(kodke);
if (kodpe='B')or(kodpe='b') then
begin
jns:='Bouraq Air Lines';
if kodke='1' then
begin
kls:='VIP';
hrg:=400000;
end
else
begin
kls:='Ekonomi';
hrg:=300000;
end;
end
else
if (kodpe='G')or(kodpe='g')then
begin
jns:='Garuda';
if kodke='1' then
begin
kls:='VIP';
hrg:=500000;
end
else
begin
kls:='Ekonomi';
hrg:=300000;
end;
end
else
begin
jns:='Garuda';
if kodke='1' then
begin
kls:='VIP';
hrg:=350000;
end
else
begin
kls:='Ekonomi';
hrg:=250000;
end;
end;
write('Masukkan Jumlah Beli :');readln(jml);
clrscr;
writeln('=======================================================');
writeln(' Penjualan Tiket Pesawat " Quic Air " ');
writeln(' Jl. Kalibata Timur No.37 Telp(021) 7901074 ');
writeln('=======================================================');
writeln('Nama Petugas :',napem);
writeln('Nama Pemesan :',napet);
writeln('Kode Pesawat :',kodpe);
writeln('Kelas :',kls);
writeln('Harga Tiket :Rp.',hrg:2:0);
writeln('Jumlah Beli :',jml:0:0);
tot:=hrg*jml;
writeln('Total Bayar :Rp.',tot:2:0);
writeln('========================================================');
write('Uang Bayar :Rp.');readln(ubay);
ukem:=ubay-tot;
writeln('Uang Kembali :Rp.',ukem:2:0);
writeln('========================================================');
write('Mau Input Data Lagi[Y/T]:');readln(lagi);
if (lagi='Y') or (lagi='y') then
goto awal
else
goto akhir;
readln;
akhir:
end.