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

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.