Вычислить количество гласных букв в каждой строке с заданным размером матрицы- Pascal(Паскаль)

uses crt;
const
  mas: set of char = ['Ё', 'У', 'Е', 'Ы', 'А', 'О', 'Э', 'Я', 'И', 'Ю','ё', 'у', 'е', 'ы', 'а', 'о', 'э', 'я', 'и', 'ю'];
type mtr=array [1..20,1..50] of char;
procedure vvod(var n,m:integer;var a:mtr);
var i,j:integer;
begin
repeat
writeln('Введите количество строк от 2 до 20 n=');
readln(n);
until(n in [2..20]);
repeat
writeln('Введите количество столбов от 2 до 50 m=');
readln(m);
until(m in [2..50]);
writeln('Введите символы на кириллице через Enter');
for i := 1 to n do
for j := 1 to m do
readln(a[i, j]);
clrscr;
writeln('Введенная матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:2);
  writeln;
 end;
end;
function count(a:mtr;m,r:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to m do
if a[r,i] in mas then inc(k);
count:=k;
end;
var a:mtr;
    n,m,i: integer;
begin
clrscr;
vvod(n,m,a);
writeln('Количество гласных в строках');
for i:=1 to n do
writeln('Строка ',i,'=',count(a,m,i));
readln
end.