Напечатайте все под слова данного слова 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.