Помогите пожалуйста)))

Program month;

var
num : integer;
i, b : integer;

begin
b := 9999999999;

writeln('Введи число от 1 до 12:');
readln(num);

for i := 0 to b do
    begin
      if num <= 0 then<br>      begin
        writeln('Нужно вводить числа от 1 до 12:');
        readln(num);
      end
      else if num > 12 then
      begin
        writeln('Нужно вводить числа от 1 до 12:');
        readln(num);
      end;
    end;

case num of
    1 : writeln('Январь');
    2 : writeln('Февраль');
    3 : writeln('Март');
    4 : writeln('Апрель');
    5 : writeln('Май');
    6 : writeln('Июнь');
    7 : writeln('Июль');
    8 : writeln('Август');
    9 : writeln('Сентябрь');
    10 : writeln('Октябрь');
    11 : writeln('Ноябрь');
    12 : writeln('Декабрь');
end;
end.