помогите с программой пожалуйста, запускается, но вырубается после ввода цифры

program mesyaci;
var b:integer;
begin
writeln ('Vvedite cifry');
readln (b);
if (b<1) or (b>12) then
writeln ('Mesyaca ne suchestvyet')
else
begin
case b of
1:writeln('January');
2:writeln ('February');
3:writeln('Martch');
4:writeln ('Aprel');
5:writeln ('May');
6:writeln ('June');
7:writeln ('Jule');
8:writeln ('Augiust');
9:writeln ('September');
10:writeln ('Octover');
11:writeln ('November');
12:writeln ('December');
end; end;
readln;
end.