var a:string; for i:=1 to length(a) do g:=i; if a=' ' then begin for g to length(a) writeln(a[g]); end;