Подсчет согласных букв в строке

uses crt;
const n=2;
//const R=['б','Б','в','В','г','Г','д','Д','ж','Ж','з','З','й','Й','к','К','л','Л','м','М','н','Н','п','П','р','Р','с','С','т','Т','ф','Ф','х','Х','ц','Ц','щ','Щ','Ш','ш','ь','Ь','ъ','Ъ'];
type
   mas=array[1..n] of string;
var
   a:mas;
   sum:integer;
   st:string;
procedure vvod(var a:mas); //ввод массива
var
   i:integer;
begin
   writeln('введите строки');
   for i:=1 to n do
   readln(a[i]);
end;
procedure vuvod(var a:mas); //вывод массива
var
   i:integer;
begin
   for i := 1 to n do
    writeln(a[i]:4);
 end;
 procedure chet(st:string; var a:mas; sum:integer); //подсчет
 var
    i:integer;
 begin
     st:='бБвВгГдДжЖзЗйЙкКлЛмМнНпПрРсСтТфФхХцЦщЩШшьЬъЪ';
    sum:=0;
    for i:=1 to length(a[i]) do
    if pos(a[i],st)<>0 then inc(sum);
 end;
 begin
    vvod(a);
    vuvod(a);
    chet(st,a,sum);
    writeln('sum=',sum);
 end.

var
  str: string;
  i,k: integer;
begin
  write('Введите строку: ');
  readln(str);
  for i:=1 to length(str) do
    if str[i] in['б','Б','в','В','г','Г','д','Д','ж','Ж','з','З','й','Й','к','К','л','Л','м','М','н','Н','п','П','р','Р','с','С','т','Т','ф','Ф','х','Х','ц','Ц','щ','Щ','Ш','ш']
      then inc(k);
  writeln('В предложении ',k,' согласных');
  readln;
end.

const
  nmax = 255;
//const R=['б','Б','в','В','г','Г','д','Д','ж','Ж','з','З','й','Й','к','К','л','Л','м','М','н','Н','п','П','р','Р','с','С','т','Т','ф','Ф','х','Х','ц','Ц','щ','Щ','Ш','ш','ь','Ь','ъ','Ъ'];
type
  mas = array[1..nmax] of string;
 
var
  a: mas;
  sum: integer;
  st: string;
 
function vvod(var a: mas): integer;//ввод массива
var
  i: integer;
  ch: char;
begin
  writeln('введите строкy');
  while ord(ch)<>13 do
  begin
    read(ch);
    inc(i);
    a[i]:=ch;
  end;
  vvod:=i;
end;
 
procedure vuvod(var a: mas);//вывод массива
var
  i,n: integer;
begin
  for i := 1 to n do
    writeln(a[i]:4);
end;
 
procedure chet(st: string; var a: mas; n: integer);//подсчет
var
  i: integer;
begin
  st := 'бБвВгГдДжЖзЗйЙкКлЛмМнНпПрРсСтТфФхХцЦщЩШшьЬъЪ';
  sum := 0;
  for i := 1 to n do
    if pos(a[i], st) <> 0 then inc(sum);
end;
var
  n: integer;
begin
  n:=vvod(a);
  vuvod(a);
  chet(st, a, n);
  writeln('sum=', sum);
end.