gotoxy pada pascal

uses wincrt;

var jml,a,b: integer;
nm,ket : array[1..40] of string;
hrg,jumlah,total : array[1..40] of real;
begin

write(‘Jumlah Data : ‘); readln(jml);
for a := 1 to jml do
begin
write(‘Nama Barang :’); readln(nm[a]);
write(‘Harga :’); readln(hrg[a]);
write(‘Jumlah :’);readln(jumlah[a]);

writeln(”);

end
;

clrscr;
gotoxy(5,2);write(‘—————————————————’);
gotoxy(5,3);write(‘Nama’);
gotoxy(20,3);write(‘Harga’);
gotoxy(30,3);write(‘Jumlah’);
gotoxy(40,3);write(‘Total’);
gotoxy(5,4);write(‘—————————————————’);

for b := 1 to jml do
begin
total[b]:=hrg[b]*jumlah[b];
gotoxy(5,5+b);write(nm[b]);
gotoxy(20,5+b);write(hrg[b]:8:0);
gotoxy(30,5+b);write(jumlah[b]:8:0);
gotoxy(40,5+b);write(total[b]:8:0);
end
;

end.