Delphi 7

[VIK_aka_TOR]

и куда ты вводил

if s[1] = '-' then
и т.д.

???
попробуй тогда с больше и меньше нуля
мол

if chislo < 0 then
//добавить минус перед прописным выводом числа

это уже вставлять после строки

cislo:=StrToInt(s);