Данная строка символов. Подсчитать общее число входящих в сроку символов ‘+’ и ‘-‘ — Pascal(Паскаль)

var
st:string;
k,i:integer;
begin
readln(st);
k:=0;
for i:=1 to length(st) do if (st[i] = '+') or (st[i] = '-') then inc(k);
writeln(k);
end.