Напечатать слова, перед которыми в строке стоят только меньшие (по алфавиту) слова, а за ними только большие

uses
  crt;
const
  lat=['A'..'Z','a'..'z','.',','];
var
  a,b:array[1..10]of string;
  s,temp1,temp2:string;
  i,cz,max1,max2,j:integer;
  flat:boolean;
begin
  clrscr;
  {öåïëÿåì âñåâîçìîæíûå ïðîâåðêè íà ââîä}
  writeln('Ââåäèòå ñòðîêó:');
  repeat
    readln(s);
    if s='0' then
      exit;
    cz:=0;
    flat:=true;
    for i:=1 to length(s) do
    begin
      if s[i]=',' then
        inc(cz);
      if not(s[i] in lat) then
      begin
        flat:=false;
        break
      end;
    end;
    if (cz>10) or (cz=0) or (s[1]=',') or (s[length(s)]<>'.') or (length(s)>6*cz+6) or not flat then
      writeln('Ñòðîêà çàäàíà íå âåðíî! Ïîïðîáóéòå ñíîâà èëè ââåäèòå 0 äëÿ âûõîäà.')
  until
    (cz<=10) and (cz<>0) and (s[1]<>',') and (s[length(s)]='.') and (length(s)<=6*cz+6) and flat;
  {íà÷èíàåì ðàáîòó ñî ñëîâîì}
  temp1:='';
  temp2:='';
  max1:=0;
  max2:=0;
  {ïðîáåãàåì âñþ ñòðîêó ïîñèìâîëüíî}
  for i:=1 to length(s) do
  begin
    if (s[i]<>',') and (s[i]<>'.') then
    begin
      temp1:=temp1+s[i];
      if temp2<>'' then
      begin
        inc(max2);
        b[max2]:=temp2;
        temp2:=''
      end;
    end;
    if (s[i]=',') or (s[i]='.') then
    begin
      if s[i-1]=',' then
      begin
        writeln('Â ñòðîêå åñòü ïîâòîðÿþùèåñÿ çàïÿòûå!');
        exit
      end;
      temp2:=temp2+s[i];
      if temp1<>'' then
      begin
        inc(max1);
        a[max1]:=temp1;
        temp1:=''
      end;
    end;
  end;
  {ñîðòèðóåì ìàññèâ}
  for i:=1 to max1-1 do
  begin
    if length(a[i])>5 then
    begin
      writeln('Â ñòðîêå åñòü ñëîâà äëèíîé áîëåå ïÿòè áóêâ!');
      exit
    end;
    for j:=i+1 to max1 do
      if a[j]<a[i] then
      begin
        temp1:=a[j];
        a[j]:=a[i];
        a[i]:=temp1
      end;
  end;
  {âîññòàíàâëèâàåì ñòðîêó}
  writeln('Ðåçóëüòàò:');
  for i:=1 to max1 do
    write(a[i],b[i]);
  writeln('.')
end.