Напечатайте все под слова данного слова S, заканчивающиеся его последней буквой, по убыванию их длин

Не знаю точно, что понимать под термином "подслово", сделал так, как я его понял. var   i,k: integer;   s:string; begin   readln(s);   k:=length(s);   for i:=2 to k do       writeln(copy(s,i,k-i+1)); end.