[pascal]pb fonction d'inversement de chaînes

Bonjour,
Je travaille avec pascal sous le compilateur Dev - Pas

J'ai fait un programme qui appelle à une fonction d'inversement des chaînes de caractères:

Program inversementdeschainesdecaracteres;

uses wincrt;

Var ch,chaine_inversee:string;

Function inverse(ch:string):string;
Var a,i,j:integer;
ch2,ch3:string;
begin
a:=length(ch);
ch2:=ch;
ch3:=ch;
for i:=1 to a do
begin
for j:=a downto 1 do
begin
ch2[i]:=ch3[j];
inverse:=ch2;
end;
end;
end;

Begin
write('Donnez la chaîne:');
read(ch);
chaine_inversee:=inverse(ch);
writeln('La chaîne inversée est:',chaine_inversee);
readln;readln;
end.

Le programme se compile et s'execute avec succès
mais à l'execution,après que j'entre la chaîne ch qui vaut par exemple ABC au lieu d'obtenir CBA j'obtient AAA
vous pouvez m'aider à corriger l'erreur;
aussi vous pouviez me dire une procédure qui inverse les chaîne et non pas cette fonction,c'est à dire automatiquement après faire l'appel à la procédure la chaîne s'inverse