Program Insert_Tab;
Const n_max = 100;
Var T : Array [1..n_max] of Char;
c : Char;
i, k, n : Integer;
Begin
Repeat
Writeln ('Donner un entier ');
Readln (n);
Until (n>=1) and (n<n_max);
Writeln ('Saisir les éléments de T') ;
For i:=1 To n Do Readln (T[i]);
Writeln ('Donner le caractère à insérer');
Readln (c);
Repeat
Writeln ('Donner la position d''insertion');
Readln (k)
Until k in [1..n];
{décalage des éléments vers droite}
For i:= n Downto k Do T[i+1] := T[i];
T[k]:=c;
For i:=1 To n+1 Do Write(T[i]:4);
End.