Pascal. Символы и строки. Задача 13

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

Решение:

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;
end.