uses crt;

TYPE
    vettore = array[1..10] of string;

function CountCharInVector(v1:vettore; c1:char) : integer;
    var t,i:integer;
    t := 0;
    begin
        for i := 1 to nmax do
        begin
            if (v1[i][1] = c1) or (v1[i][length(v[i])] = c1) then inc(t);
        end;
        CountCharInVector := t;
    end;