Viết chương trình nhập từ bàn phím xâu kí tự có ít nhất 2 từ (hai từ cách nhau bởi một hoặc nhiều kí tự trống), in ra màn hình xâu kí tự viết ngược các từ của xâu trên. Ví dụ: Nhập xâu: choi di xe dap thì in ra kết quả: dap xe di choi Giải bằng ngôn ngữ pascal giúp tớ với !

uses crt;
var n,s2:string;
a:array[1..100000] of string;
d,i:longint;
begin
clrscr;
readln(N);
n:=n+' ';
for i:=1 to length(n) do
 if n[i]<>' ' then s2:=s2+n[i]
 else
 begin
  d:=d+1;
  a[d]:=s2;
  s2:='';
 end;
for i:=d downto 1 do
 write(a[i],' ');
readln
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var s : string;
    i, j, vt : integer;
begin
    readln(s);
    s := ' ' + s ;
    vt := length(s) ;
    for i := length(s) downto 1 do 
        if s[i] = ' ' then 
             begin
            for j := i + 1 to vt do write(s[j]);
            write(' ');
            vt := i - 1 ;
             end ;
end .