membuat program diskon dengan pascal

kopi koding dibawah ini :

uses crt;
label
a;
var
i,dat:integer;
kode,jumlah:array [1..8] of integer;
nama:string;
tobay,harga,total,diskon:real;
begin
a: clrscr;
gotoxy(20,2);write('Penjualan TV. SONY');
gotoxy(10,4);write('--------------------------------------');
gotoxy(10,6);write('Maksimal 8 Barang yang mau dibeli');
gotoxy(10,7);write('Berapa barang yang mau dibeli : ');readln(dat);
if (dat>8) then
goto a
else
begin
for i:=1 to dat do
begin
gotoxy(10,6);write('Kode Barang : [ ]                                  ');
gotoxy(10,7);write('Nama Barang : [                  ]                 ');
gotoxy(10,8);write('Harga       : [             ]');
gotoxy(10,9);write('Jumlah Beli : [  ]');
gotoxy(10,10);write('Total Harga : [             ]');
gotoxy(10,11);write('Diskon      : [             ]');
gotoxy(10,12);write('Total Bayar : [             ]');
gotoxy(5,14);write('----------------------------------------------------------------------');
gotoxy(5,15);write('No Kode Nama Barang          Harga  Jumlah  Total  Diskon  Total Bayar ');
gotoxy(5,16);write('----------------------------------------------------------------------');
gotoxy(5,25);write('----------------------------------------------------------------------');
gotoxy(25,6);readln(kode[i]);
case kode[i] of
 1 : begin nama:='TV LCD Sony 21 inc';harga:=1650000;end;
 2 : begin nama:='TV LCD Sony 24 inc';harga:=1800000;end;
 3 : begin nama:='TV LCD Sony 32 inc';harga:=4500000;end;
 4 : begin nama:='TV LCD Sony 46 inc';harga:=8500000;end;end;
gotoxy(25,7);write(nama);
gotoxy(25,8);write(harga:0:0);
gotoxy(25,9);readln(jumlah[i]);
total:=harga*jumlah[i];
gotoxy(25,10);write(total:0:0);
if (total>=2500000) then
diskon:=0.1*total
else
diskon:=0;
gotoxy(25,11);write(diskon:0:0);
tobay:=total-diskon;
gotoxy(25,12);write(tobay:0:0);
gotoxy(5,17+i);write(i,'  ',kode[i],'    ',nama,' ',harga:0:0,'     ',jumlah[i]);
gotoxy(47,17+i);write(total:0:0);
gotoxy(56,17+i);write(diskon:0:0);
gotoxy(65,17+i);write(tobay:0:0);
readln;end;end;
end.


selamat mencobba.....