Составить программу, которая считает в формуле, заданной с клавиатуры, колличество плюсов и минусов (программа в паскале)

Var i,col: integer; s: string; begin readln(s); col: =0; for i: =1 to length(s) do begin if (s[i]='+') or (s[i]='-') then col: =col+1; end; writeln('количество плюсов и минусов: ',col); end.

канал - 5букв

телевизор,компьютер 9букв

крик - 4буквы