Добавить в программу функцию, которая считает количество вхождений заданной буквы в к-ый элемент массива

program module;
uses crt;
type mas=array[1..10] of string;
procedure perepis(var f:text;ch:char;var a:mas;var n:integer);
var s:string;
begin
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  if s[1]=ch then
   begin
    n:=n+1;
    a[n]:= s;
   end;
  end;
close(f)
end;
procedure print(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
writeln(a[i])
end;
 
//////////////////////////////////////////////////////////////////////
 
function kolvo(var ch:char;var a:mas;var n:integer):integer;
var i,k,j:integer;
begin
writeln('Введи номер элемента массива, который будем обрабатывать');
readln(k);
for i:=1 to length(a[k]) do
if a[i]=ch then
j:=j+1;
//kolvo:=j;
//writeln('буква встречается ',kolvo,' раз);
writeln('Заданная буква встречается ',j,' раз');
 
end;
//////////////////////////////////////////////////////////////////////////
 
var b:mas;
    fname:string;
    f:text;
    ch:char;
    n:integer;
BEGIN
writeln('Введи имя файла, откуда надо прочитать');
read(fname);
assign(f,fname);
reset(f);
writeln('Введи заданную букву');
read(ch);
perepis(f,ch,b,n);
print(b,n);
kolvo(ch,b,n);
END.