5
uses sysutils,strutils;
15
S:='THE CAT WAS NEVER SMART ENOUGH TO CATCH THIS FAST LITTLE MOUSE.';
20
For I:=1 to WordCount(S,Delims) do
22
T:=ExtractWordPos(I,S,Delims,N);
23
Writeln('Word ',I:2,' starts at ',N:2,'(',WordPosition(I,S,Delims):2,') : ',T);
b'\\ No newline at end of file'