Дана строка, состоящая из слов. Выдать слова, в которых буквы уже упорядочены по алфавиту.

var a,b:string;
    i,ip,j,n,k:integer;
    f:boolean;
{ip меньше i на 1-оба бегунок по массиву a;
j-для записи в массив b; n-длина строки; k-кол-во букв в слове}
begin
  writeln ('Введите строку');
  readln(a);
  n:=length(a);
  ip:=1; i:=2; j:=1; k:=0;
  f:=false;
  while i<=n do
  begin
    if (a[i]<>' ') then
     begin
       if UpperCase(a[ip])<UpperCase(a[i]) then
       begin
         b[j]:=a[ip];
         j:=j+1;
         k:=k+1;
         ip:=i;
         i:=i+1; 
       end
       else 
       if UpperCase(a[ip])>UpperCase(a[i]) then
       begin
         ip:=i;
         i:=i+1;
       end;
     end
    else
    if a[i]=' ' then
    begin
      if k<>0 then
      begin
        b[j]:=a[ip];
        for j:=1 to k+1 do
        begin
          write (b[j]);
          f:=true;
        end;
      end;
        ip:=i+1;
        i:=i+2;
        j:=1;
        k:=0;
    end;
  end;
  if not f then
    writeln ('таких слов нет!');
end.