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.

program hama;
uses crt;
  var s: string;
        i: integer;
begin
      clrscr;
      write('Nhap xau S: '); readln(s);
      for i:= length(s) downto 1 do if (s[i]=#32) and (s[i+1]=#32) then delete(s,i,1);
      if s[1]=#32 then delete(s,1,1);
      for i:=1 to length(s) do if s[i]<>#32 then write(s[i]) else writeln;
      readln
end.

uses crt;
var i:longint; s,a:string;
begin 
clrscr; 
   write('Nhap vao mot xau ki tu: ');readln(s);
   s:=' '+s+' ';
   for i:=2 to length(s) Do 
      if (s[i]=' ')and(s[i-1]<>' ') then begin writeln(a); a:=''; end else 
      if s[i]<>' ' then a:=a+s[i];
readln
end.