Вывести фамилии учащихся по месяцам рождения

type
  Klass = 
  record
    Fam, Lan, Pol, Dat: string;
  end;
 
var
  a: array of Klass;
  i, n: integer;
 
begin
  writeln('Введите кол-во учеников: ');
  readln(n);
  
  SetLength(a, n);
  
  for i := 0 to n - 1 do 
  begin
    writeln('Фамилия ', i + 1, '-го ученика: ');
    readln(a[i].Fam);
    writeln('Пол(М-Ж) ', i + 1, '-го ученика: ');
    readln(a[i].Pol);
    writeln('Язык, изучаемый  ', i + 1, '-м учеником: ');
    readln(a[i].Lan);
    writeln('Дата рождения(гггг.мм.дд.) ', i + 1, '-го ученика: ');
    readln(a[i].Dat);
  end;
 
  writeln;
  
  writeln('Фамилии учащихся по месяцам рождения');
  
  for i := 0 to n - 1 do 
    writeln(a[i].Fam, ' - ', a[i].Dat);
  
  
end.

type
  
  Month = (Январь, Февраль, Март, Апрель, Май, Июнь, Июль, Август, Сентябрь, Октябрь, Ноябрь, Декабрь);
  
  Klass = 
  record
    Fam, Lan, Dat, Month: string;
    Pol: char;   
  end;
 
var
  a: array of Klass;
  i, n: integer;
  c: set of string;
  k: Month;
 
BEGIN
  
  c := ['Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь', 'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь'];
  
  writeln('Введите кол-во учеников: ');
  readln(n);
  
  SetLength(a, n);
  
  for i := 0 to n - 1 do 
  begin
    writeln('Фамилия ', i + 1, '-го ученика: ');
    readln(a[i].Fam);
    writeln('Пол(М-Ж) ', i + 1, '-го ученика: ');
    readln(a[i].Pol);
    writeln('Язык, изучаемый  ', i + 1, '-м учеником: ');
    readln(a[i].Lan);
    writeln('Дата рождения:');
    writeln('Год и день рождения(гггг.дд.) ', i + 1, '-го ученика: ');
    readln(a[i].Dat);
    writeln('Месяц рождения ', i + 1, '-го ученика(прописью): ');
    readln((a[i].Month));
  end;
  
  writeln;
  
  writeln('Фамилии учащихся по месяцам рождения');
  
  for k := Январь to Декабрь do
  begin
    writeln(k, ':');
    for i := 0 to n - 1 do 
      if a[i].Month = k.ToString
        then writeln(i + 1, ')', a[i].Fam, ';');
  end;
  
END.