Latihan Procedure

uses crt;
var i,n:byte;
kode:array[1..10]of char;
jml:array[1..10]of integer;
nama,jns:array[1..10]of string;
hrg,toha:array[1..10]of longint;
tp:longint;
lg:char;
label awal;

procedure output;
begin
clrscr;
writeln('DATA PENJUALAN');
writeln('=============================================');
writeln('No Nama Jenis Harga Jumlah Total');
writeln(' Pembeli Barang Barang Beli Harga');
writeln('=============================================');
for i:=1 to n do
begin
gotoxy(1,i+5);write(i);
gotoxy(4,i+5);write(nama[i]);
gotoxy(14,i+5);write(jns[i]);
gotoxy(25,i+5);write(hrg[i]);
gotoxy(35,i+5);write(jml[i]);
gotoxy(41,i+5);writeln(toha[i]);
end;
writeln('=============================================');
writeln(' Total Penjualan: ',tp);
end;

begin
awal:
clrscr;
tp:=0;
write('Masukkan jumlah data: ');readln(n);
writeln;
for i:=1 to n do
begin
writeln('Data ke-',i);
write('Nama pembeli : ');readln(nama[i]);
write('Kode Barang[A/B/C]: ');readln(kode[i]);
if upcase(kode[i])='A' then
begin
jns[i]:='Mouse';
hrg[i]:=125000;
end
else if upcase(kode[i])='B' then
begin
jns[i]:='Keyboard';
hrg[i]:=50000;
end
else if upcase(kode[i])='C' then
begin
jns[i]:='Monitor';
hrg[i]:=1000000;
end
else
begin
jns[i]:='Tidak Ada';
hrg[i]:=0;
end;
write('Jumlah beli : ');readln(jml[i]);
toha[i]:=hrg[i]*jml[i];
tp:=tp+toha[i];
end;
output;
write('Input data lagi[Y/T]: ');readln(lg);
if upcase(lg)='Y' then
goto awal;
readln;
end.