В символьной матрице найти гласные буквы, которые присутствуют во всех строках

const n = 3;
type matr = array [1..n, 1..n] of char;
 
function InAll(a: matr; c: char): boolean;
var i, j, k: byte;
begin
  k := 0; InAll := false;
  for i := 2 to n do
    for j := 1 to n do
      if a[i, j] = c then begin
        inc(k); break;
      end;
  if k = n - 1 then InAll := true;
end;
 
var a: matr;
    s, s_glas: set of char;
    i, j: byte; ch: char;
begin
  randomize;
  s_glas := ['a', 'e', 'i', 'o', 'u', 'y'];
  //рандомное заполнение (выдаёт true редко, но почему бы и нет)
  {for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := chr(97 + Random(26));
      write(a[i, j], ' ');
    end;
    writeln;
  end;}
  
  //ручное запонение
  for i := 1 to n do
    for j := 1 to n do 
    begin
      write('a[', i, ', ', j, '] = ');
      readln(a[i, j]);
    end;
    
  for j := 1 to n do
    if (a[1, j] in s_glas) and (InAll(a, a[1, j])) then
      include(s, a[1, j]);
  if s = [] then
    writeln('Нет гласных букв, которые встречаются во всех строках')
  else begin
    write('Гласные буквы, которые есть во всех строках: ');
    for ch := 'a' to 'z' do
      if ch in s then write(ch, ' ');
  end;
end.

  for i:=1 to n do begin
    s:=[]; for j:=1 to n do Include(s,a[i,j]);
    s_glas:=s_glas*s;
  end;
  Write('Гласные буквы, которые есть во всех строках:');
  if s_glas=[] then Write(' отсутствуют')
  else for ch:='a' to 'z' do if ch in s_glas then Write(' ',ch);