program PDAM but can't run

program pdam;
uses wincrt;
var  nama:array[1..25]of string[25];
     sigmapemakaian,tarifm3:real;
     sigma,bayar,total:real;
     golongan:char;
     i,banyaklangganan:byte;

procedure bacadata;
begin
     clrscr;
     {bagian membaca data}
     i:=1;{pengisian dimulai indeks}
     write('nama langganan (isi "x" jika selesai) : ');read(nama[i]);
     while nama[i] <> 'x' do
     begin
          write('jumlah pemakaian : ');read(sigma);
          inc(i);{penambahan indeks}
          write('nama langganan (isi "x jika selesai) : ');readln(nama[i]);
     end;
     banyaklangganan:=i-1;
end;

procedure hitung;
begin
     {bagian menghitung};
     sigmapemakaian:=0;
     for i:=1 to banyaklangganan do
     sigmapemakaian:=sigmapemakaian+sigma;
     end;
     begin
          if golongan = 'A' then
              tarifm3:=300
          else if golongan = 'B' then
                 tarifm3:=250;
               if golongan = 'C' then
                 tarifm3:=100
     end
     bayar:=sigmapemakaian*tarifm3
     total:=bayar+bayar[i]
     end;

procedure cetak;
begin
     {bagian cetak hasil}
     clrscr;
     writeln('daftar pembayaran langganan PDAM ');
     writeln('bulan juni 2013');
     writeln('===========================================================================================');
     writeln('nama langganan');
     write('jumlah pemakaian');
     write('golongan');
     write('bayar');
     writeln('==========================================================================================');
     for i:=1 to banyaklangganan do
     begin
          gotoxy(3,4+i);write(nama[i]);
          gotoxy(33,4+i);write(sigma);
          gotoxy(43,4+i);write(golongan);
          gotoxy(53,4+i);write(bayar);
     end;
     writeln;writeln('==================================================================================');
     writeln('total pembayaran : ',total:6:2);
     end;
     begin {program utama}
           bacadata;
           hitung;
           cetak;
     end.

ada yang salah pada pgogram diatas,,,ko gak mau jalan yaaa