Задача на символьные строки. Сложность ЕГЭ

program ex;
const x=12;
var
n,i,j,k,m,m1,t:integer;
a:array[1..x] of string;
b:array[1..x] of integer;
s:string;
begin
//присваиваем месяца,которые будем искать в входной строке
a[1]:='января';
a[2]:='февраля';
a[3]:='марта';
a[4]:='апреля';
a[5]:='мая';
a[6]:='июня';
a[7]:='июля';
a[8]:='августа';
a[9]:='сентября';
a[10]:='октября';
a[11]:='ноября';
a[12]:='декабря';
 
readln(n); //вводим число строк
i:=0;
 
repeat
 readln(s); //вводим строку
 for j:=1 to x do
  if pos(a[j],s)<>0 then b[j]:=b[j]+1; //проверяем наличие одного из элементов массива а в строке s
i:=i+1;
until i=n;
 
for m1:=1 to x-1 do //сортируем массив b, в котором записаны количество дней рожд. в каждом месяце
 for m:=1 to x-m1 do
  if b[m]<b[m+1] then
   begin
    t:=b[m];
    b[m]:=b[m+1];
    b[m+1]:=t;
   end;
   
writeln;  //просто для разграничения введенных и выводимых данных
 
for k:=1 to 12 do //выводим месяц и кол-во дней рожд. для ненулевых элементов b
if b[k]<>0 then writeln(a[k],' ',b[k]);
end.