дано предложение. напечатать его слова в обратном порядке

uses
  Crt;
const
  dividers = [' ',',','.',':',';','+','-','*','/','|','\','=','-','_'];{дописать нужные разделители}
var
  a,b: array [1..128] of string;
  s,temp1,temp2: string;
  i,j,max1,max2: integer;
begin
  ClrScr;
  ReadLn(s);
  temp1 := '';
  temp2 := '';
  max1 := 0;
  max2 := 0;
  for i := 1 to Length(s) do
  begin
    if not (s[i] in dividers) then
    begin
      if temp2 <> '' then
      begin
        Inc(max2);
        b[max2] := temp2;
        temp2 := ''
      end;
      temp1 := temp1 + s[i];
    end;
    if (s[i] in dividers) or (i = Length(s)) then
    begin
      if temp1 <> '' then
      begin
        Inc(max1);
        a[max1] := temp1;
        temp1 := ''
      end;
      if s[i] in dividers then
        temp2 := temp2 + s[i];
    end;
  end;
  for i := 1 to max1 div 2 do
  begin
    temp1 := a[i];
    a[i] := a[max1 - i + 1];
    a[max1 - i + 1] := temp1;
  end;
  for i := 1 to max1 do
  begin
    Write(a[i]);
    if i <= max2 then
      Write(b[i])
  end;
  ReadLn;
end.

program BackWord;
uses crt;
var
st,st1,temp:string;
i:integer;
begin
write ('Stroka: ');
readln(st);
i:=length(st);
temp:='';
st1:='';
while i>0 do
begin
if st[i]<>' ' then
    begin
        insert(st[i],temp,1);
        i:=i-1;
    end
else
    begin
        st1:=st1+temp+' ';
    temp:='';
    i:=i-1;
  end;
end;
st1:=st1+copy(st,1,pos(' ',st));
writeln(st);
writeln(st1);
readln;
end.

uses crt;
var
st,sl:string;
c:char;
i:integer;
begin
clrscr;
readln(st);
for i:=1 to length(st) do begin
 c:=copy(st,i,1);
  if c<>' ' then sl:=c+sl;
              else if sl<>'' then writeln(sl);
                                    end;
if sl<>'' then writeln(sl);
readln;
end.