Программы с использованием String.

[makentosh]

Пожалуйста помогите написать программы на Паскале...

Задача1. Задана строка состоящая из трёх слов в латинском алфавите, разделённых одиночными пробелами. Ввести строку и вывести слова, по одному в каждой строке экрана монитора.

Задача2. Задана строка состоящая из слов в латинском алфавите, разделённых одиночными пробелами. Ввести строку и вывести слова, по одному в каждой строке экрана монитора.

Задача3. Задана строка состоящая из трёх слов в латинском алфавите, разделённых пробелами (возможно, несколькими). Ввести строку и вывести слова, по одному в каждой строке экрана монитора.

Задача4. То же, что и задача3, но слова могут разделяться как пробелами, так и запятой (за которой могут следовать пробелы).

[Mad_Cat]

Задача1.
Задача2.

for i:=1 to length(s) do
if s[i]=' ' then writeln
else write(s[i]);

Задача3.

while pos('  ',s)<>0 do delete(s,pos('  ',s),1);
for i:=1 to length(s) do
if s[i]=' ' then writeln
else write(s[i]);

[makentosh]

Прогнал код для третей задачи, пишет только третье слово, остальные удаляет.
я пробовал так начать.

while s[1] = ' ' do
        delete(s,1,1);
    while s[length(s)] = ' ' do
        delete(s,length(s),1);
    while pos('  ',s) <> 0 do
        delete(s,pos('  ',s),1);

Но закончить не получается.