Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки до тех пор, пока в строке не останется 1 символ.

Спасибо, спасибо, спасибо.
Жду Вашей помощи.)

var s : string;begin while (length(s)>0) do begin s:=copy(s,1,length(s)-1); write(s); writeln; end;end.