Дано слово. Получить слово, получаемое путем прочтения слова начиная с его конца

function wor(const s:string; var i:byte):string;
    var w,l,k:string;
    begin
    w:='';
 
    while (i<=length(s)) and (s[i]<>' ') do begin
          w:=w+s[i];
          i:=i+1;
          end;
 
    wor:=w;
    end;
 
    var s,k,l:string; i,j:byte;
    begin
    readln(s);
    i:=1;
    while i<=length(s) do
    begin
          k:=wor(s,i);
          for j:=length(k) downto 1 do
          write (k[j]); write(' ');
    i:=i+1;
    end;
    end.

function wor(const s:string; var i:byte):string;
    var w,l,k:string;
    begin
    w:='';
    i:=length(s);
    while (i>=1)do begin
          w:=w+s[i];
          i:=i-1;
          end;
 
    wor:=w;
    end;
    var s,k,l:string; i,j:byte;
    begin
    readln(s);
          k:=wor(s,i);
          write (k);
    end.