Inverse d'elements d'un tableau

Rappel du premier message :

J'ai ce programme dont je ne sais pas où l'erreur:

Code:

program tab_claire;
uses wincrt;
type tab=array[1..10]of string;
var n:integer;
    p,q:tab;               
procedure taille(var nn:integer);
  begin
    repeat
      write('donner la taille');
      readln(nn);
    until nn in[1..10] ;
  end;
function verification(ch:string):boolean;
var i:integer;
    verif:boolean;
  begin
    i:=1;
    verif:=true;
    while(verif=true)and(i<=length(ch))do
        begin
        if not (ch[i] in ['0'..'9'])then
          verif:=false
        else
          i:=i+1;
        end;
    verification:=verif;
  end;

procedure saisie(nn:integer;var pp:tab);
var i:integer;
  begin
 
  for i:=1 to nn do
    repeat
      write('pp[',i,']=');
      readln(pp[i]);
    until verification(pp[i])=true;
  end;
 
function inverse(ch:string):string;
  var
  i,j:integer;
  ch1:string;
  cc: char;
  begin
    j:=1;
    ch1:='';
    for i:=length(ch) downto 1 do;
      begin
        ch1[j]:=ch[i];
        j:=j+1;
      end;
 
  inverse:=ch1;
  end;
procedure tableau_inverse(nn:integer; pp:tab ;var qq:tab);
  var i:integer;
  begin
    for i:=1 to nn do
    begin
      qq[i]:=inverse(pp[i]);
 
      end;
  end;
procedure affiche_tableau_inverse(nn:integer;qq:tab);
  var i:integer;
  begin
    for i:=1 to nn do
    writeln(qq[i]);
  end;
 begin
 taille(n);
 saisie(n,p);
 tableau_inverse(n,p,q);
 affiche_tableau_inverse(n,q);
 end.

Le programme fait:
- la saisie de nombre d'element dans un tableau
- la saisie des elements du tableau
- inverser chaque element du tableau et l'afficher (exemple : tableau initial (123|2345|987) on aura (321|5432|789) )
(RQ: c'est different du faite d'inverser le tableau ce qui donnera (987|2345|123))

Merci de m'aider
(c'est un exercice pascal niveau bac maths)

C'est l'essentiel : lamia

Je voudrais bien savoir pourquoi la 1ere solution que j'ai donné ne fonctionne pas

ch1 := ''; { ch1 est initialement vide }
j := 1;
for i:=length(ch) downto 1 do begin
ch1[j] := ch[i]; { la chaine est vide comment modifier le jème caractère ?}
j := j + 1;
end;

Ah ok, je vois maintenant c'est quoi le probleme.
Merci beaucoup

avec plaisir