inversement de mot

ÉNONCÉ
Ecrire un programme Pascal qui saisit une phrase et l’affiche renversée. La phrase commence, obligatoirement, par une lettre et ses mots sont séparés par un seul espace.
Exemple :
Votre phrase :
Résolution de problèmes
Résultat :
Problèmes de Résolution

SOLUTION

program bac2002;
uses wincrt;
type h=array [1..100] of integer;
l=array [1..100] of string;
var phrase:string;t:h;y:l;
procedure saisie ( var phrase:string);
begin
repeat
writeln('donner une phrase avec des espaces entre les mots');
readln(phrase);
until phrase[1]<>'';
end;
procedure permutation (var y:l;var phrase:string);
var i,n,m,b,j,c:integer;
begin
i:=0;
n:=0;
b:=length(phrase);
repeat
i:=i+1;

if phrase[i]=' ' then
begin
n:=n+1;
j:=i;
y[n]:=copy (phrase,1,j);
delete(phrase,1,j);
i:=0;
end;

until phrase='';
for b:=n downto 1 do
write(y[b],' ');
end;
begin
saisie(phrase);
permutation(y,phrase);
end.