Спасибо, мы как раз в Delphi работаем. Но ваша программа, к сожалению, не хочет считать, выдает либо ноль, либо 1, скоько слов ни вводи(((( И понять ошибку у вас я тоже не могу, вроде правильно всё.