inversement d'une phrase

ÉNONCÉ
problème :
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

PASCAL


program inversement_phrase;
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.