konversi angka ke nama bulan

uses crt;
var
   n:integer;
   hasil:string;

   function konversi(n:integer):string;
   var
      nama:string;
   begin
      case n of
         1: nama:='Januari';
         2: nama:='February';
         3: nama:='Maret';
         4: nama:='April';
         5: nama:='Mei';
         6: nama:='Juni';
         7: nama:='Juli';
         8: nama:='Agustus';
         9: nama:='September';
         10: nama:='Oktober';
         11: nama:='November';
         12: nama:='Desember';
      end;
      konversi:=nama;
   end;
begin
   clrscr;

   write('isikan angka 1-12 untuk menentukan nama bulan: ');readln(n);
   hasil:=konversi(n);
   writeln;
   writeln(n,' -> ',hasil);
   readln;
end.