Помогите, пожалуйста.
Даны натуральное число n и символы s1,...,sn.Подсчитать , сколько раз среди данных символов встречается символ + и сколько раз символ *.

/write('введите количество символов->'); readln(n); count:=0; for i:=1 to n do begin write('введите символ №',i, ' ->'); readln(s); if s='+' then count:=count+1; end; writeln('количество плюсов = ', count)