Цитата(cattyfil @ 30.11.2012, 5:03) 
Спасибо, мы как раз в Delphi работаем. Но ваша программа, к сожалению, не хочет считать, выдает либо ноль, либо 1, сколько слов ни вводи(((( И понять ошибку у вас я тоже не могу, вроде правильно всё.
Русские слова вводите
Нужно в uses подключить Windows
uses
SysUtils, Windows;
и сразу после Begin
Begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
readln(S1); //Прочитали строку
Мой код