Определить количество гласных букв, количество согласных и количество цифр

const
  n = 10;
 
type
  mas = array[1..n] of char;
 
var
  a: mas;
  q := ['a', 'e', 'u', 'o', 'y', 'i'];
  b := ['b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'z', 'x'];
  s := ['0'..'9'];
  i, k, c, d: integer;
 
procedure random_mas(var a: mas);
var
  i, j: integer;
begin
  for i := 1 to n do 
  begin
    a[i] := chr(random(122));
    repeat
      if not (ord(a[i]) in [48..57, 97..122]) 
        then a[i] := chr(random(122));
    until ord(a[i]) in [48..57, 97..122];
  end; end;
 
procedure Print_mas(a: mas);
var
  i: integer;
begin
  for i := 1 to n do 
    write(a[i], ' ');
end;
 
procedure count(var k, c, d: integer);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    if a[i] in q then inc(k);
    if a[i] in b then inc(c);
    if a[i] in s then inc(d); end;
  writeln('Гласных ', k);
  writeln('Согласных ', c);
  writeln('Цифр ', d);
end;
 
begin
  Random_mas(a);
  print_mas(a); writeln;
  count(k, c, d);
  
end.