Переделать вывод программки на строчки.Паскаль. Как перенастроить на то, чтоб выводилось

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

Пример:

boat
load cargo to the boat truck

load
cargo
to
the
truck

Может мне стоит использовать иной цикл?

var
p, s: string;
k: byte;

begin

readln(p);
readln(s);

s := ' ' + s + ' '; // сможете пояснить для чего нужны две эти строчки? На практике если их убрать, то будет удаляться не все слово, а точнее будет оставаться заключительная буковка. Может можно это как-то исправить и без этих строк?
p := ' ' + p + ' ';
repeat
k := pos(p, s);
if k gt; 0 then delete(s, k, length(p) - 1);
until k = 0;
writeln(s);
end.