Вывести слова в обратном порядке

1.

Вывести слова в обратном порядке.
var
str: string;
len, i, a: byte;
begin
readln(str);
len := length(str);
a := 0;
for i:=len downto 1 do begin
if str[i] = ' ' then begin
write(copy(str,i+1,a),' ');
a := 0;
end
else
a := a + 1;
end;
write(copy(str,i,a));
writeln;
readln
end.
Описание переменных:
str - строка;
len - длина строки;
a - длина очередного слова;
i - текущая позиция в строке.