Вывести предложение, в котором больше всего слов, содержащих равное количество гласных и согласных букв

var
  st: string;
  a: array [1..130] of string;
  w: array [1..130] of integer;
  q, e, t, y, p, g, j, b, n, max: integer;
 
procedure razdel(m: string);
var
  i, c, ns: integer;
begin
  ns := 0;
  c := 0;
  for i := 1 to length(m) - 1 do 
  begin
    if (m[i] = ' ') and (m[i + 1] <> ' ') then ns := i + 1;
    if (m[i] <> ' ') and ((m[i + 1] = ' ') or (m[i + 1] = '.')) then begin
      inc(c);
      t := c;
      a[c] := copy(st, ns, i - ns + 1);
    end;
  end;
end;
 
begin
  read(n);
  for j := 1 to n do 
  begin
    read(st);
    razdel(st);
    b := 0;
    for q := 1 to t do 
    begin
      g := 0;
      p := 0;
      for y := 1 to length(a[q]) do
        if (a[q][y] = 'a') or (a[q][y] = 'e') or (a[q][y] = 'i') or (a[q][y] = 'o') or (a[q][y] = 'u') or (a[q][y] = 'y') then g := g + 1 else p := p + 1;
      if (p = g) then b := b + 1;
    end;
    w[j] := b;
  end;
  max := 0;
  for j := 1 to n do 
  begin
    if (max < w[j]) then begin
      max := w[j]; e := j;
    end;
  end;
  write(e);
end.