Viết chương trình liệt kê các từ của một xâu ký tự được nhập từ bàn phím

Viết chương trình liệt kê các từ của một xâu ký tự được nhập từ bàn phím

Đề bài: Viết chương trình liệt kê các từ của một xâu ký tự được nhập từ bàn phím, mỗi từ phải được viết trên 1 dòng. 

Lời giải:

program bai_giai;
uses crt;
var s:string;i:longint;
begin
 clrscr;
  write('nhap xau:');readln(s);
  for i:=1 to length(s) do if(s[i]=' ')then writeln else write(s[i]);
 readln;
end.