program dan design

PROGRAM ARRAY_1;
USES CRT;
VAR
NABAR,KOBAR : ARRAY [1..20] OF STRING;
HABAR,JML,TOBAY : ARRAY [1..20] OF REAL;
I,JUMDAT : BYTE;
BEGIN
CLRSCR;
TEXTCOLOR(LIGHTBLUE);
WRITE('INPUT JUMLAH DATA :');READLN(JUMDAT);
FOR I:=1 TO JUMDAT DO
BEGIN
WRITELN('DATA KE :',I);
WRITELN;
WRITE('KODE BARANG :');READLN(KOBAR[I]);
WRITE('NAMA BARANG :');READLN(NABAR[I]);


WRITE('HARGA BARANG :');READLN(HABAR[I]);
WRITE('JUMLAH BARANG :');READLN(JML[I]);
WRITELN;
TOBAY[I]:=HABAR[I]*JML[I];
END;
CLRSCR;
TEXTCOLOR(RED);
WRITELN('***********************************************************');
WRITELN(' TOKO "SERBA ADA" ');
WRITELN('***********************************************************');
WRITELN('NO KODE BARANG NAMA BARANG HARGA JUMLAH TOTAL ');
{123456789012345678901234567890123456789012345678901234567890123}
WRITELN('***********************************************************');
FOR I:=1 TO JUMDAT DO
BEGIN
GOTOXY(2,5+I);WRITE(I);
GOTOXY(8,5+I);WRITEln(KOBAR[I]);
GOTOXY(22,5+I);WRITEln(NABAR[I]);
GOTOXY(37,5+I);WRITEln(HABAR[I]:2:0);
GOTOXY(46,5+I);WRITEln(JML[I]:2:0);
GOTOXY(55,5+I);WRITEln(TOBAY[I]:2:0);
WRITELN;
WRITELN('***********************************************************');
END;
READLN;
END.