Помогите Послезавтра экзамен а у меня не получается сделать очень важную задачу.
Текст состоит из слов между ними любое кол-во пробелов текст в виде n-ого кол-ва столбцов между столббцами три пробела . Необходимо разбить на слова.
Type
TextType = array[1..20] of string; {тип представления текста}
SlovaType = array[1..60]of string[10]; {массив для слов- каждая строка- слово}
{процуедура разбивает входной массив текста на массив слов}
Procedure SepWord(A:TextType; TextLength:word; var S:SlovaType; var K:word);
Var r:set of char; sl:boolean; CurStr,i:Integer; ss:string;
Begin
K:=0; ss:=''; sl:=false; r:=[' ',',','.',':',';','!','?','$','#'];
For CurStr:=1 to TextLength do
for i:=1 to length(a[curstr]) do
begin
if (not(a[curstr,i] in r)) and (sl=true) then ss:=ss+a[curstr,i];{слово продалжается}
if ((not(a[curstr,i] in r)) and (sl=false)) then begin sl:=true; ss:=ss+a[curstr,i] end; {началось слово}
if ((a[curstr,i] in r)or(i=length(a[curstr]))) and (sl=true) then
begin {слово закончилось}
INC(k); s[k]:=ss; ss:=''; sl:=false
end;
end;
end;