uses crt;

const nmax = 10;

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

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