Программа выводит полную дату, вводим 5 1 2022 то получаем 5 января 2022 — Pascal(Паскаль)

Program Proverochnaya_4;
Type
   mounth = (jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);
   day = 1..31;
   year = 1900..3000;
Var
   d : day;
   m : mounth;
   g : year;
   num : 1..12;
Begin
   Writeln('Введите дату - день, месяц, год ');
   Readln(d, num, g);
   Case num of
       1 : m:= jan;
       2 : m:= feb;
       3 : m:= mar;
       4 : m:= apr;
       5 : m:= may;
       6 : m:= jun;
       7 : m:= jul;
       8 : m:= aug;
       9 : m:= sep;
       10 : m:= oct;
       11 : m:= nov;
       12: m:= dec;
   End;
 
 
    Write('Дата: ', d : 2);
    Case m of
       jan: write(' января ');
       feb: write(' февраля ');
       mar: write(' марта ');
       apr: write(' апреля ');
       may: write(' мая ');
       jun: write(' июня ');
       jul: write(' июля ');
       aug: write(' августа ');
       sep: write(' сентября ');
       oct: write(' октября ');
       nov: write(' ноября ');
       dec: write(' декабря ')
    end;
    Writeln(g : 5,' года ')
End.