Дано предложение. Напечатать его в обратном порядке слов, например, предложение «мама мыла раму» должно быть напечатано в виде «раму мыла мама» — Pascal(Паскаль)

uses crt;
var s:String;
i,s2,j,q,n:integer;
r:string;
x:array [1..1000] of String;
begin
Writeln('Введите количество слов');
readln(n);
Writeln('Введите слова');
for i:=1 to N do
readln(x[i]);
for i:=1 to N do
for j:=i+1 to N do
if x[i]<=x[j] then
begin
r:=x[i]; x[i]:=x[j]; x[j]:=r;
end;
for i:=1 to n do write(' ',x[i],'  ');
end.