Bonjour !

J'ai un problème avec cette procédure :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program inverser;
begin
 
type
Tab=string;
 
Procedure Inverser (Var t : Tab; p, n : Integer);
Var aux : char;
Begin
If p < n Then
Begin
aux := t[p];
t[p] := t[n];
t[n] := aux;
Inverser (t, p + 1, n - 1);
 End;
 End;
End;
end.
Pourriez-vous m'aider ?