Составить программку которое печатает слово задом на перед

Pascal ABC. var a,b: string; n,m,i,j: integer; begin readln(a); a:=a+ ; n:=length(a); for i:=1 to n do if a[i] in [a..z,A..Z] then b:=b+a[i] else begin m:=length(b); for j:=m downto 1 do write(b[j]); b:=; if ilt;gt;n then write(a[i]); end; end.