Ввести информацию по 10 школьникам (ФИО, пол, год рождения). Определить количество мальчиков и девочек. Вывести список каждых — Pascal(Паскаль)

Program zap_20;

Uses Crt;

Const
  n = 10;

Type
  uch = record
    Fio: string[20];
    Pol := 'м', 'ж';
    God: integer;
  end;

Var
  a: array [1 .. n] of uch;
  I, k1, k2: byte;

BEGIN
  ClrScr;
  k1 := 0;
  k2 := 0;
  for I := 1 to n do
    with a[I] do
    begin
      Writeln('Введите фио');
      Readln(Fio);
      Writeln(' Введите пол');
      Readln(Pol);
      If Pol = 'м' then
        k1 := k1 + 1
      else
        k2 := k2 + 1;
      Writeln(' Введите год рождения');
      Readln(God);
    End;
  Writeln('Количество мальчиков', k1);
  Writeln('Список мальчиков');
  for I := 1 to n do
    with a[I] do
      if Pol = 'м' then
        Writeln(Fio, ' ', God);
  Writeln('Количество девочек', k2);
  Writeln('Список девочек');
  for I := 1 to n do
    with a[I] do
      if Pol = 'ж' then
        Writeln(Fio, ' ', God);
  Readln;

end.