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

Program n1;
Var i,n:integer;
Begin
 writeln('Skolko bukv?');
 read(n);
 for i:=97 to 96+n do write(chr(i),' ');
End.

Program n2;
Var i,ks:integer;
    s:string;
Begin
 writeln('Vvedite stroku');
 readln(s);
 ks:=0;
 i:=1;
 while (i<=length(s)) and (ks<3) do
  begin
   if (s[i]<>' ')and((s[i+1]=' ')or(i=length(s))) then ks:=ks+1;
   if ks=3 then
    begin
     writeln('3 slovo v obratnom poryadke: ');
     while s[i]<>' ' do
      begin
       write(s[i]);
       i:=i-1;
      end;
    end;
   i:=i+1;
  end;
 if ks<3 then writeln('V stroke menshe 3 slov');
End.

Program n1;
Var i,n:integer;
    s:string;
Begin
 writeln('vvedite stroku');
 readln(s);
 writeln('Skolko bukv?');
 read(n);
 if n<length(s) then for i:=1 to n do write(s[i])
                else writeln(s);
End.