Цитата
Загадку с отрицательными s, o не разгадал - давайте точный код, тогда можно будет смотреть.
я попробовал заменить
o,s:integer на o,s:real
и тогда s:=s+1 и o:=o+1 он считает правильно
видимо это что то связано с памятью выделенной для значений integer