Ошибка в программе распаковки строк

@suiseiseki · Регистрация: 23.09.2012

Author24 — интернет-сервис помощи студентам

Очень нужна была функция разделения строки на слова, и я нашел ее в учебнике "Паскаль для математиков". Только при запуске возникает ошибка "индекс за пределами массива". Вот код:

Pascal

Var
    s : String;   {строка}
    w : String;  {слово}
    j : Byte;
Const
    Letters : Set Of Char = ['а'..'п','р'..'я','А'..'Я']; {буквы языка }
Begin
    Write('Введите текст ');  ReadLn(s);
    j:=1;
    While j<=Length(s) Do {последовательно проверяем все симвлы}
        If s[j] In Letters Then Begin  {встретили букву}              w:=‘’;  {начинаем формировать слово}
            While (s[j] In Letters)And(j<=Length(s)) Do Begin
                w:=w+s[j]; Inc(j); End;
{слово сформировано, теперь либо s[j] - не буква, либо строка закончилась}
            WriteLn(w);
        End
        Else Inc(j); {пропускаем “пробел”}
End.

В чем может быть ошибка? На первый взгляд все очень правильно.

@CodeR · 02.12.2012, 08:49

добавь это в 10 строку...

Pascal

s:=s+' ';

	02.12.2012, 08:49