Case Bulan and Looping

program case_of;
uses
 winCrt;
var
 coba:char;
 bulan:string;
 indeks:byte;
begin
 coba:='Y';
 repeat
  writeln('Program Mencetak Nama Bulan');
  writeln('---------------------------');
  write('Masukkan no Bulan[1..2] : ');readln(indeks);
  case indeks of
   1:bulan:='Januari';
   2:bulan:='Februari';
  else
     bulan:='Gak Ada';
 end;
  writeln('Bulan ke ',indeks,' adalah ',bulan);
  writeln('---------------------------');
  write('Mau Coba Lagi?[Y/T] : ');readln(coba);
  clrscr;
 until (coba='T') or (coba='t');
 writeln('TERIMA KASIH');
end.