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

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.