Разбить текст на слова Опции

[pad]

Помогите Послезавтра экзамен а у меня не получается сделать очень важную задачу.
Текст состоит из слов между ними любое кол-во пробелов текст в виде n-ого кол-ва столбцов между столббцами три пробела . Необходимо разбить на слова.

[Altair]

Да, кстати, вот еще кое-что.

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;

p.s. задание в инсте было. "написать процедуру разбиения на слова.
вход - текст (массив из строк текста). число строк. выход - слова (массив из слов) и число слов."