Паскаль у місяці обчислити кількість парних днів

//pascalabc.net 3.1 сборка 1239 uses system; begin       var m : = readinteger('введите номер месяца => ');       var d : = new datetime(datetime.now.year, m, 1);             var k : = 0;       repeat               if d.day mod 2 = 0 then k += 1;               d : = d.adddays(1);       until d.month < > m;             writeln(k); end.

Const   nn= 50; var   a: array[1..nn] of integer;   i,j,k,n: integer;   f: text; begin   write('введите количество чисел: '); read(n);   { формирование входного файла }   randomize;   assign(f,'input.txt'); rewrite(f);   for i: =1 to n do   begin k: =random(50); writeln(f,k) end;   close(f);   { чтение входного файла в массив и вывод }   reset(f);   writeln('элементы массива');   for i: =1 to n do   begin readln(f,a[i]); write(a[i]: 3) end;   close(f);   writeln;   { сортировка по возрастанию методом пузырька }   for i : = 1 to n-1 do       for j : = 1 to n-i do           if a[j] > a[j+1] then           begin k : = a[j]; a[j] : = a[j+1]; a[j+1] : = k end;   { вывод в файл в порядке возрастания }   assign(f,'output.txt');   rewrite(f);   for i: =1 to n do write(f,a[i]: 3);   writeln(f);   { вывод в файл в порядке убывания }   for i: =n downto 1 do write(f,a[i]: 3);   writeln(f);   close(f) end.