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

почему моя программа когда я ввожу +-+-
пишет только ++-?
вот так я организовал обнаружение
i:=length
for a=1 to i do
if s[a]:='+'
then begin
write('+');
то же самое с минусом только цикл фор не писал.