Пример программы на Pascal:

program SplitSentence;
var
sentence, word: string;
i, spacePos: integer;
begin
writeln('Введите предложение:');
readln(sentence);
word := '';
for i := 1 to Length(sentence) do
begin
if sentence[i] <> ' ' then
begin
word := word + sentence[i];
end
else
begin
writeln(word);
word := '';
end;
end;
writeln(word);
end.

Эта программа считывает предложение с клавиатуры, разделяет его на отдельные слова и выводит каждое слово на новой строке.