Строковой массив Опции

[Вячеслав Л.]

Возможно ли разбиение строки на слова посредством массива типа string? То есть, что-то типа:

...
for i:=1 to {ne znayu}
do {zapolnit' massiv}

for i:=1 to ...
do writeln(s[i]);

{zatem soverwit' kakie to deistviya s otdelnymi slovami: tipa naxozhdeniya samogo dlinnogo slova i t. p.}

Как это будет выглядеть (хотя бы примерно) ?

[Вячеслав Л.]

Оба привиденных фрагмента программ не работают, хотя я их дополнил до целых программ как знал. В обоих случаях вылетает ошибка:
» Nepredvidennoe isklyu4enie EAccessViolation. Access violation at address 0069CADC in module 'PascalABC.exe'. Read of address 00000004. Programma zaverwena.

Сами программы вот:

var
m:set of byte;
begin

m:=[1,2,3];
Include(m,8);   {ìíîæåñòâî ñòàëî [1,2,3,8]}
Include(m,8);   {ìíîæåñòâî íå èçìåíèëîñü}
m:=m+[2,3];   {ìíîæåñòâî íå èçìåíèëîñü}
m:=m+m;       {ìíîæåñòâî íå èçìåíèëîñü}
m:=m-[1,3];    {ìíîæåñòâî ñòàëî [2,8]}
m:=[1,2,3]+[1,2,5];  {ìíîæåñòâî ñòàëî [1,2,3,5]}
m:=[];    {ïóñòîå ìíîæåñòâî}

end.

var
  s: string;
  m: set of char;
i:integer;
begin
readln(s);
for i:=1 to Length(s) do Include(m,s[i]);
  c:='f';
  Write('ñèìâîë ',c);
  if not (c in m) then Write('íå ');
  WriteLn(' ïðèñóòñòâóåò â ñòðîêå');
  end.

Возникает вопрос: правильно ли я их дополнил?

Мы, конечно, можем помочь, но только НЕ ПОТОМУ, что тебе в лом искать учебник (в Инете можно найти легко) или исправлять какой-то баг. Если есть вопрос, если что-то непонятно, если что-то не получается - пожалуйста, поможем. Но заменять тебе учебник - учти, я делал это в первый и последний раз. Будь, пожалуйста, поуважительнее, не расходуй чужое время

Несколько учебников, я скачал сегодня, как исправить баг я не знаю. По теории больше обращаться не буду. Действительно не стоит, прочитать это я могу сам. Сглупил, простите.

Что касается разбиения строки - буду искать более простой способ. С данными здесь способами я так и не разобрался.