Viết chương trình nhập vào 1 chuỗi, sau đó in ra mỗi từ có trong chuỗi thành 1 dòng (Pascal)

Viết chương trình nhập vào 1 chuỗi, sau đó in ra mỗi từ có trong chuỗi thành 1 dòng
Vd: Tin hoc lop 11
in ra :
Tin
hoc
lop
11
Lưu ý: Phải có copy, post, length
Giúp mình nha!