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

program RomanceWords;
var
word: string;
i, j: integer;
begin
word := 'романтика';
for i := 1 to length(word) do
begin
for j := i to length(word) do
begin
writeln(copy(word, i, j - i + 1));
end;
end;
end.

При запуске данной программы будут выведены следующие слова из слова "романтика":

рроромромароманромантромантиромантикромантика