monsieu marouene .je veux avoir la solution de cette exercices s'il ous plait Merci

programme:
on veut ecrire un programme pascal permettant de lire un mot intitule CHM et aficherles chaines de caracteres suivantes :
la chine formee par le premier et le dernier caractres de CHM.
la chaine formee par les deux premiers caracteres et les deux derniers caracteres de CHM.
Etc...
exemple:
si la chaine CHM contient ((TURBO)) alors le programme affichera:
TO
TUBO
TURRBO
TURBURBO
TURBOTURBO.

program turbo;
uses wincrt;
var
ch:string;
i:integer;
begin
writeln('saisir une chaîne');
readln(ch);
for i:=1 to length (ch) do
writeln(copy(ch,1,i)+copy(ch,length(ch)-i+1,i));
end.