Строки. Напечатать те слова, которые отличны от последнего слова и удовлетворяют заданному свойству

uses crt;
var s,sl,smax: string;                //переменные для строки, слова и максимального слова
    i,dmax,j,k: integer;                  //переменные для счетчика и длины максимального слова
    c: char;
    b: boolean;
begin
write('Введите строку ');             //запрос и считывание строки в память
repeat
c:=readkey;
write(c);
s:=s+c;
until c='.';
writeln;
s:=s+' ';                             //добавляю к строке пробел, чтобы при поиске учитывались все слова и последнее - тоже
sl:='';  dmax:=0;                               //изначально слово пусто  //изначально максимальная длина неизвестна, беру самую маленькую - 0
write('Слова, буквы которых упорядочены по алфавиту');
for i:=1 to length(s) do              //цикл перебора всех символов строки
    if not (s[i] in [' ',',','.']) then sl:=sl+s[i]     //если символ не пробел, прикрепляю его к слову
       else                           //иначе
       begin
       if length(sl)>dmax then        //если длина слова больше, чем ранее найденная максимальная, то
          begin
          dmax:=length(sl);           //в переменную записываю новую максимальную длину
          smax:=sl;                   //в паременную максимального слова записываю новое слово
          end;
       b:=true;
       for j:=1 to length(sl)-1 do
           if sl[j]>sl[j+1] then b:=false;
       if b then
          begin
          inc(k);
          if k=1 then writeln(':');
          writeln(sl);
          end;
       sl:='';                        //переменную для слова обнуляю, чтобы перейти к следующему слову
       end;
if k=0 then writeln(', отсутствуют');
k:=0;
writeln ('Самое длинное слово "',smax,'" длиной в ',dmax,' символов');   //вывод на экран
write('Слова, которые совпадают с начальным отрезком алфавита');
for i:=1 to length(s) do              //цикл перебора всех символов строки
    if not (s[i] in [' ',',','.']) then sl:=sl+s[i]     //если символ не пробел, прикрепляю его к слову
       else                           //иначе
       begin
       b:=true;
       for j:=1 to length(sl) do
           if ord(sl[j])<>96+j then b:=false;
       if b then
          begin
          inc(k);
          if k=1 then writeln(':');
          writeln(sl);
          end;
       sl:='';                        //переменную для слова обнуляю, чтобы перейти к следующему слову
       end;
if k=0 then writeln(', отсутствуют');
readln;
end.

program lab6;
uses crt;
var
a,t:string; {строка}
b:array[1..100]of string; {массив слов}
i,k,f,j:integer; {счётчики и флажок(f)}
begin
clrscr;
repeat
writeln('vvedite text');
readln(a);{ввели слово}
until (a[length(a)]='.') and (pos (' ', a)<>0);
a:=' '+a;{добавили пробел в начало, чтобы перед всеми словами был пробел (легче считать)}
for i:=1 to length(a) do  {перебираем все символы}
if (a[i]=' ')and(a[i+1]<>' ')then inc(k)else if a[i]<>' ' then b[k]:=b[k]+a[i];
{если встречаем последний пробел, на счётчике слов появляется следующая цифра,}
{если не пробел, добавляем к слову букву из строки}
for i:=1 to k-1 do   {перебираем все слова}
           begin
t:=b[i];      {снимаем с него копию}
f:=0;   {флажок возрастания сбрасываем}
for j:=2 to length(t) do {перебираем буквы в нём}
if t[j]<t[j-1] then f:=1; {если буквы не возрастают, флажок поднимаем}
 if f=0then writeln(b[i]);  {если слово не равно последнему и флажок возрастания опущен, то печатаем слово}
end;
readln;
end.

uses crt;
var s,sl,smax: string;            
    i,dmax: integer;
begin
clrscr;
repeat
write('vvedite stroky ');
readln(s);
until (s[length(s)]='.') and (pos (' ', s)<>0);
s:=s+' ';
sl:='';
dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if length(sl)>dmax then
          begin
          dmax:=length(sl);
          smax:=sl;
          end;
       sl:='';
       end;
writeln ('samoe dlinnoe slovo "',smax,'" dlinou v ',dmax,'simvolov');
 readln;
end.

uses crt;
var s,sl: string;                //переменные для строки, слова и максимального слова
    i,j,k: integer;                  //переменные для счетчика и длины максимального слова
    c: char;
    b: boolean;
begin
write('Введите строку ');             //запрос и считывание строки в память
repeat
c:=readkey;
write(c);
s:=s+c;
until c='.';
writeln;
s:=s+' ';                             //добавляю к строке пробел, чтобы при поиске учитывались все слова и последнее - тоже
sl:='';                               //изначально слово пусто  //изначально максимальная длина неизвестна, беру самую маленькую - 0
write('Слова, которые совпадают с начальным отрезком алфавита');
for i:=1 to length(s) do              //цикл перебора всех символов строки
    if not (s[i] in [' ',',','.']) then sl:=sl+s[i]     //если символ не пробел, прикрепляю его к слову
       else                           //иначе
       begin
       b:=true;
       for j:=1 to length(sl) do
           if ord(sl[j])<>96+j then b:=false;
       if b then
          begin
          inc(k);
          if k=1 then writeln(':');
          writeln(sl);
          end;
       sl:='';                        //переменную для слова обнуляю, чтобы перейти к следующему слову
       end;
if k=0 then writeln(', отсутствуют');
readln;
end.

uses crt;
var s,sl,smax: string;            
    i,dmax,k: integer;
 b: boolean;
begin
clrscr;
repeat
write('vvedite stroky ');
readln(s);
until (s[length(s)]='.') and (pos (' ', s)<>0);
s:=s+' ';
sl:='';
dmax:=0;
for i:=1 to length(s) do
  if not (s[i] in [' ',',','.']) then sl:=sl+s[i]     
       else                          
       begin
       b:=true;
       for j:=1 to length(sl) do
           if ord(sl[j])<>96+j then b:=false;
       if b then
          begin
          inc(k);
          if k=1 then writeln(':');
          writeln(sl);
          end;
       sl:='';                       
       end;
if k=0 then writeln(', отсутствуют');
readln;
end.