Liệt kê từ trong xâu

Viết chương trình liệt kê các từ của một xâu ký tự được nhập vào từ bàn phím, mỗi từ phải được viết trên một dòng.
                                              Giải
Var   s,tu:string;   kt1,kt2:boolean;   i: char;   j: integer;
Function kt(a:char):Boolean;
   Begin
       kt1:=false;
       For i:='a' to 'z' do if a=i then kt1:= true;
       For i:='A' to 'Z' do if a=i then Kt1:=true;
       Kt:=kt1;
   End;
Begin
       Write('Nhap xau ki tu: '); Readln(s); Writeln('Cac tu trong xau la: ');
       For j:=1 to length(s) do
           if kt(s[j]) then tu:=tu+s[j]
           Else
               begin
                   if tu<>'' then writeln(tu);  tu:='';
               end;
       writeln(tu);
       Readln;
End.