Обнаружение плюсов и минусов в строке

почему моя программа когда я ввожу +-+-
пишет только ++-?
вот так я организовал обнаружение
i:=length
for a=1 to i do
if s[a]:='+'
then begin
write('+');
то же самое с минусом только цикл фор не писал.
21 декабря 2019 в 00:32
Ближайшие курсы
Как понять, что вы прирожденный бизнес-аналитик
Онлайн-курс
6
марта
Онлайн-интенсив для Product Manager
Онлайн-интенсив для Product Manager
6
марта
Интенсив "Как построить эффективную службу поддержки в компании"
Интенсив "Как построить эффективную службу поддержки в компании"
6
марта
Новые статьи

Что такое MVP и как к нему подступиться
18300

Обновляем программу обучения для менеджеров по продажам
20500

BI-системы: что это и зачем они нужны бизнесу
32200