Напечатать все подслова слова "А"

[Александр_ТГМТ]

1.Напечатать все подслова слова "А" заканчивающиеся последней буквой по убыванию длин.
2. Тоже самое только по возрастанию длин.
Что то не выходит:

Program zadacha_1;
 var
 x,i: integer;
 A,y: String;
 BEGIN
  readln(A);
  x:=length(A);
  for i:=x downto 1 do begin
  y:=copy(A,i+1,i-1);
  writeln(y); end;
  readln;
END.

[Arigato]

Сначала надо дать определение понятию "подслово".

[Александр_ТГМТ]

Имеется в виду, что нужно вывести столбик
информатика
нформатика
форматика
...
а

[Arigato]

Тю, да тут цикл for и copy. Делать нечего вообще.

[Александр_ТГМТ]

Ну я же выложил код, исправьте пож до правильного решения, у меня что то не сходится.

[Arigato]

Ну так попробуй: copy(A,i,x-i+1)

[Александр_ТГМТ]

Спасибо, все правильно