Program Pascal Apotik

Program Apotik;
uses crt;
var
     nama_obat   : array[1..20] of string;
     harga       : array[1..20] of real;
     banyak      : array[1..20] of byte;
     kata,grs    :string;
     x,y,i,j     :byte;
     Jum_Harga,Total_Harga,disc,Total_Bayar,uang,Kembalian   :real;
     Ul : Char;
Begin
  Repeat
     clrscr;
     grs:='==================================================================';
     Textcolor(Yellow); Write('APOTIK SEMOGA SEMBUH');
     Writeln;
     Textcolor(7);
     x:=round((78-length(kata))/2);
     gotoxy(x,2);writeln(kata);
     x:=round((78-length(grs))/2);
     gotoxy(x,3);write(grs);
     {-----------------------------}
     gotoxy(x,4);write('Data Belanja');
     gotoxy(x,5);write(grs);
     gotoxy(x,6);writeln('| No | Nama Obat         | Harga Satuan  | Banyak | Jumlah Harga |');
     gotoxy(x,7);write(grs);