Ввести информацию о студентах и вывести самые распространённые женские и мужские имена

const
  m = 100;
type
  nc = record n: string[12]; gd: char; c: integer end;
var
  st: array[1..m] of nc;
  i, j, n, mc, fc, mi, fi, k, p: integer;
  a, nm: string;
  g: char;
begin
  write('Введите количество студентов (не более ', m, '): ');
  readln(n);
  writeln('Введите информацию о каждом студенте, построчно.');
  writeln('Данные: фамилия, имя, отчество, пол, возраст, курс.');
  writeln('В фамилии, имени, отчестве не более 12 букв, пол указывать буквами М и Ж,');
  writeln('возраст от 16 до 35 лет, курс - целое от 1 до 5.');
  writeln('Данные в строке отделять символом ";".');
  k := 0;
  for i := 1 to n do
    begin
      write('Студент ', i, ': ');
      readln(a);
      delete(a, 1, pos(';', a));
      p := pos(';', a);
      nm := copy(a, 1, p-1);
      delete(a, 1, p);
      g := a[pos(';', a) + 1];
      j := 1;
      while (j <= k) and ((st[j].n <> nm) or (st[j].gd <> g)) do inc(j);
      if j <= k then inc(st[j].c)
      else
        begin
          inc(k);
          st[k].n := nm;
          st[k].gd := g;
          st[k].c := 1
        end
    end;
  mc := 0;
  fc := 0;
  for i := 1 to k do
    with st[i] do
      begin
        if (gd = 'М') and (c > mc) then
          begin
            mc := c;
            mi := i
          end
        else
          if (gd = 'Ж') and (c > fc) then
            begin
              fc := c;
              fi := i
            end
      end;
  if fc > 0 then writeln('Самое распространённое женское имя: ', st[fi].n)
  else writeln('Женщин не найдено');
  if mc > 0 then writeln('Самое распространённое мужское имя: ', st[mi].n)
  else writeln('Мужчин не найдено');
  readln
end.