Var
s:string;
i:integer;
begin
Write('Введите слово: '); Readln(s);
for i:=Length(s)-1 downto 1 do Writeln(Copy(s,1,i))
end.
Тестовое решение:
Введите слово: Электрификация
Электрификаци
Электрификац
Электрифика
Электрифик
Электрифи
Электриф
Электри
Электр
Элект
Элек
Эле
Эл
Э