Помогите, пожалуйста, решить задачу на строки!

[Nival]

Вводится текст. Проверить упорядочены ли слова по алфавиту и выбрать самое "старшее" и "младшее"

[Nival]

Вот как я делал:
program volkov;
uses crt;
var
st,s1,s2,min,max:string;
i,j,k:integer;
z:boolean;
begin
clrscr;
writeln('BBedu TEXT!!');
readln(st);
z:=false;
i:=1;
j:=0;
repeat
s1:=copy(st,i,pos(' ',st));
s2:=copy(st,length(s1)+1,pos(' ',st));
j:=j+2;
i:=i+length(s2)+Length(s1)+j-1;
if ord(s1[1])<ord(s2[1]) then begin
z:=true;
min:=s1;
max:=s2;
end
else
min:=s2;
max:=s1;
until i>length(st);
if z=true then begin
writeln('po alfavity');
writeln('min ',max);
writeln('max ',min);
end
else begin
writeln('ne po alfavity');
writeln('min: ',min);
writeln('max: ',max);
end;
readln;
end.

[Nival]

для двух слов работает вроде а дальше никак

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n:integer;
    a:array[1..100] of string;
    flag:boolean;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
flag:=false;
for i:=1 to n-1 do
 if  a[i+1]<a[i] then flag:=true;
if flag then writeln('NO')
   else begin
         writeln(a[1]);
         writeln(a[n]);
        end;

end.

[paladinn]

1.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок. В общем вот чо написал
program skobki;
uses crt;
var
s:string;
begin
clrscr;
write('vvodim stroky so skobkami');
readln(s);
write(copy(s,pos ( '(',s)+1 , pos( ')',s) - pos('(',s)-1));
readln;
end.
теперь нужно сделать так чтобы допустим если мы ввели строку без скобок либо есть одна из них но нет другой либо они не правильно расположены то есть сначала закрывающайся потом откр в общем во всех других вариантах выводил ошибку помогите пожалуста !

[alex_fcsm]

Не надо в чужой теме постить свои - создавайте свои темы, а еще лучше читайте правила

var s,s1:string;
    i,k:integer;

begin
writeln('Input string');
readln(s);
k:=0;
if pos('(',s)=0 then k:=1 else
repeat
inc(i);
if s[i]<>')' then s1:=s1+s[i];
if s[i]='(' then begin
                  s1:='';
                  inc(k);
                 end;
if s[i]=')' then dec(k);
until i=length(s);
if k=0 then writeln(s1)
   else writeln('Error!!!');
end.