Календарь: по номеру месяца отобразить его название и количество дней в месяце

uses crt;
var x:integer;
stroka:string;
code1:integer;
label 22;
begin
22:
writeln('Vvedite nomer mesiatsa');
readln(x);
val (stroka,x,code1);
case x of
1:writeln ('ianvar 31 den');
2:writeln ('fevral 28 dnei');
3:writeln ('mart 31 den');
4:writeln ('aprel 30 dnei');
5:writeln ('mai 31 den');
6:writeln ('iyn 30 dnei');
7:writeln ('iyl 31 den');
8:writeln ('avgust 31 den');
9:writeln ('sentabr 30 dnei');
10:writeln ('oktabr 31 den');
11:writeln ('noyabr 30 dnei');
12:writeln ('dekabr 31 den');
if (x<1) and (x>12) then 
writeln ('takogo mesiatsa net');
writeln ('prodolgite rabotu? da - 1 net - lyboi simvol')
readln (key);
if key ='1' then goto 22
else exit;
end;
end.

begin
  var month := ReadInteger('Введите номер месяца:');
  if month.InRange(1,12) then
    'январь — 31 день,февраль — 28 дней,март — 31 день,апрель — 30 дней,май — 31 день,июнь — 30 дней,июль — 31 день,август — 31 день,сентябрь — 30 дней,октябрь — 31 день,ноябрь — 30 дней,декабрь — 31 день'.ToWords(',')[Pred(month)].PrintLn
  else
    WriteLn('Такого месяца не может быть!');
end.

begin
  try
    var month := ReadInteger('Введите номер месяца:');
    if month.InRange(1,12) then
      'январь — 31 день,февраль — 28 дней,март — 31 день,апрель — 30 дней,май — 31 день,июнь — 30 дней,июль — 31 день,август — 31 день,сентябрь — 30 дней,октябрь — 31 день,ноябрь — 30 дней,декабрь — 31 день'.ToWords(',')[Pred(month)].PrintLn
    else
      WriteLn('Такого месяца не может быть!');
  except
    WriteLn('Это вообще не число!');
  end;
end.

begin
  var продолжать := True;
  while продолжать do
    begin
      . . .
      продолжать := ReadLnString('Продолжать? (1 - да / иначе - нет) :') = '1';
    end;
end.