begin
comment divide string to words using spaces in a string;
	string (60) s;
	string (20) array arr(1::10);
	integer n, nW;
	integer i;
	
	s := "12 ab 12 xyz 78 ";
	n := 60;
	nW := 0; comment number of words;
	
	write(s);
	for i := 0 until 59 do
	begin
	end;
	
	for i := 0 until nW do write( arr(i) ); 
end.