Задача Разбить предложение по словам. В предложении могут быть знаки «.», «!», «?» и «,»

Алгоритм Смотрим очередную букву Если это знак препинания, то ничего не делаем Если это пробел, то переходим к заполнению следующего слова Если это другой знак, добавляем его к заполняемому слову

Описание var s,q : string; x:array[1..10] of string; n,i,k : integer; Здесь s – вводимая строка q – считываемый символ x – массив слов n - длина строки k – номер слова I -счётчик

Подготовительные операции write ('s=', s); readln(s); n:=Length(s); for i:=1 to 10 do x[i]:=''; k:=1;

Сам процесс for i:=1 to n do begin q:=copy(s,i,1); if ((q='!') or (q='.') or (q='?') or (q=',')) then i:=i else if q=' ' then k:=k+1 else x[k]:=x[k]+q; end;

Окончание for i:=1 to k do writeln(x[i]); readln;