Дан номер месяца. Вывести на экран его текстовое название — Pascal(Паскаль)

uses crt;
Label 1;
var i:integer;
    s:byte;
begin
   clrscr;
   1: write('введите число интересующего вас месяца: ');readln(i);
   if (i>=1) and (i<=12) then   begin
     Case i of
      1:writeln('Январь!!!');
     else
      writeln();
     end;
     Case i of
      2:writeln('Февраль!!!');
     else
      writeln();
     end;
     Case i of
      3:writeln('Март!!!');
     else
      writeln();
     end;
     Case i of
      4:writeln('Апрель!!!');
     else
      writeln();
     end;
     Case i of
      5:writeln('Май!!!');
     else
      writeln();
     end;
     Case i of
      6:writeln('Июнь!!!');
     else
      writeln();
     end;
     Case i of
      7:writeln('Июль!!!');
     else
      writeln();
     end;
     Case i of
      8:writeln('Август!!!');
     else
      writeln();
     end;
     Case i of
      9:writeln('Сентябрь!!!');
     else
      writeln();
     end;
     Case i of
      10:writeln('Октябрь!!!');
     else
      writeln();
     end;
     Case i of
      11:writeln('Ноябрь!!!');
     else
      writeln();
     end;
     Case i of
      12:writeln('Декабрь!!!');
     else
      writeln();
     end;
     end
    else writeln('в году 12 дней!!!');
     writeln('Продолжить программу?  1-да, 2-нет');
     readln(s);
     if s=1 then GOTO 1;
end