Решение

Тема: моделирование, цикл, поиск максимума
Сложность: простая

Считываем тест посимвольно до конца строки. Если введен символ '+', увеличиваем счетчик на 1. Если введен символ '-', уменьшаем счетчик на 1. После изменения счетчика проверяем, не стало ли его значение больше достигнутого ранее максимума.

var k,m:integer;
  ch:char;
begin
  while not eoln do
  begin
    read(ch);
    if ch='+' then
      inc(k)
    else
      dec(k);
    if m<k then m:=k;
  end;
  writeln(m);
end.