Перевернуть слова, в которых буквы упорядочены по алфавиту

program prog_a_26;
uses crt;
var
   i,n:integer;
   text,tx1:string;
   fl:boolean;
begin
     i:=1;
     n:=length(s);
     while (i<n) and (s[i]<s[i+1]) do inc(i);
     prov:=i=n
end;
procedure pv(s:string;var t:string);
begin
     t:=''; n:=length(s);
     for i:=n downto 1 do t:=t+s[i];
end;
procedure main(text1:string;var text2:string;var fl:boolean);
var
  p:integer;
  t,r:string;
begin
     text1:=text1+' ';
     p:=pos(' ',text1);text2:='';
     while p>0 do
       begin
            t:=copy(text1,1,p-1);
            if prov(t) then
                     begin
                       fl:=true;
                       pv(t,r)
                     end
                        else r:=t;
            text2:=text2+' '+r;
            delete(text1,1,p);
            p:=pos(' ',text1);
 
       end;
end;
BEGIN
     clrscr;writeln;
     writeln;
     writeln(':');
     readln(text); fl:=false;
     main(text,tx1,fl);
     if fl then
         writeln(' ')
         else
            writeln('');
    writeln(tx1);
    readkey
END.

program prog_a_26;
uses crt;
 
var
i,n:integer;
text,tx1:string;
fl:boolean;
 
function prov(s: string): boolean;
begin
i:=1;
n:=length(s);
while (i<n) and (s[i]<s[i+1]) do inc(i);
prov:=i=n
end;
 
procedure pv(s:string;var t:string);
begin
t:=''; n:=length(s);
for i:=n downto 1 do t:=t+s[i];
end;
 
procedure main(text1:string;var text2:string;var fl:boolean);
var
p:integer;
t,r:string;
begin
text1:=text1+' ';
p:=pos(' ',text1);text2:='';
while p>0 do
 begin
 t:=copy(text1,1,p-1);
 if prov(t) then
  begin
  fl:=true;
  pv(t,r)
  end
 else r:=t;
 text2:=text2+' '+r;
 delete(text1,1,p);
 p:=pos(' ',text1);
 end;
end;
 
 
BEGIN
clrscr;
writeln; writeln;
writeln(':');
readln(text); 
fl:=false;
main(text,tx1,fl);
if fl then
 writeln(' ');
writeln(tx1);
readkey
END.

program prog_a_26;
uses crt;
var
i,n:integer;
text,tx1:string;
fl:boolean;
function prov(s: string): boolean;{Функция для проверки слова на упорядоточеность по алфавиту}
begin
i:=1;
n:=length(s);{n присваиваем длину слова}
while (i<n) and (s[i]<s[i+1]) do inc(i);{В кикле проходим по всему слову от начала до конца
 и если какая то буква не по алфавиту пошла выходим из цикла}
prov:=i=n {Результат работа определяется если i=n(т.е все буквы упорядоточены) то true иначе false}
end;
 
procedure pv(s:string;var t:string);{Процедура для переворота слова}
begin
Var i:integer;
t:='';{Обнуляем строку в которой будет набираться результат} n:=length(s);
for i:=n downto 1 do t:=t+s[i];{С конца строки до начала копируем буквы из строки s в строку t}
end;
 
procedure main(text1:string;var text2:string;var fl:boolean);{Из названия выходит что главная процедура}
var
p:integer;
t,r:string;
begin
text1:=text1+' ';{К строке text1 добавляем пробел в конец}
p:=pos(' ',text1); {В p запомнила позицию пробел} text2:='';{Обнулили строку text2}
while p>0 do {Пока позиция пробела существует в строке т.е p>0 делаем}
 begin
 t:=copy(text1,1,p-1);{В переменную t копируем слово из строки text1до пробела(без него)}
 if prov(t) then {Передаем слово t функции prov если она true то}
  begin
  fl:=true;{f1 присваиваем true}
  pv(t,r);{И переворачиваем слово t}
  end
 else r:=t;{иначе в r записываем слово t без изменения}
 text2:=text2+' '+r;{К строке text2 добавляем пробел и слово r}
 delete(text1,1,p);{Удаляем из строки text1 начиная с первого символа до позиции пробела (вклюяая его)}
 p:=pos(' ',text1);{Запоминаем в p позицию пробела строки text1}
 end;
end;
BEGIN
clrscr;{Процедура очистки экрана}
writeln; writeln;{Два пустых перевода строки}
write(':');{Вывод :}
readln(text); {Ввод строки}
fl:=false;{присваем в f1 false}
main(text,tx1,fl);{Передаем в глав процедуру введенную строку,строку результат,и лог.переменную f1}
if fl then {Если f1 истина то выводим пробел}
 writeln(' ');
writeln(tx1);{Вывод полученой строки}
readkey;{Задержка}
END.