Найти в символьной матрице количество гласных букв английского алфавита (код работает неправильно)

type matrix=array[1..10, 1..10] of char;
var a: matrix;
n,m,i,j,k: integer;
begin
readln(n);
readln(m);
k:=0;
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
readln();
end;
for i:=1 to n do
begin
for j:=1 to m do
if (a[i,j]='a')or(a[i,j]='e')or(a[i,j]='i')or(a[i,j]='o')
or(a[i,j]='u')or(a[i,j]='y')or (a[i,j]='A')or(a[i,j]='E')
or(a[i,j]='I')or(a[i,j]='O')or(a[i,j]='U')or(a[i,j]='Y') then
k:=k+1;
end;
writeln(k);
end.

type
  matrix = array[1..10, 1..10] of char;
 
var
  a: matrix;
  n, m, i, j, k: integer;
 
begin
  readln(n);
  readln(m);
  k := 0;
  for i := 1 to n do
    for j := 1 to m do
      readln(a[i, j]);
  for i := 1 to n do
  begin
    for j := 1 to m do
      if (a[i, j] = 'a') or (a[i, j] = 'e') or (a[i, j] = 'i') or (a[i, j] = 'o')
            or (a[i, j] = 'u') or (a[i, j] = 'y') or (a[i, j] = 'A') or (a[i, j] = 'E')
            or (a[i, j] = 'I') or (a[i, j] = 'O') or (a[i, j] = 'U') or (a[i, j] = 'Y') then
        k := k + 1;
  end;
  writeln(k);
end.