[aktivizion]

Покачто долибся такого:

Код:

var
i:integer;
a,b,c,d:integer;
a1,b1,c1,d1:string;
que,z:string;
s,buf,buf1:string;
begin
readln(f1,s);
label6.Caption:=s;
a:=ansipos('a)',s);
b:=ansipos('b)',s);
c:=ansipos('c)',s);
d:=ansipos('d)',s);

 if (a = 0) and (s[2] <> ')') and (IsNumber(s[1]) = true) then
  begin
   que:=s;
   label1.Caption:=s;
  end;

   if (a <> 0) and (IsNumber(s[1]) = false) then
    begin
     //a1:=Copy(s,a+1,b-a);
     a1:=s;
     label2.Caption:=s;
    end;

     if (b <> 0) and (IsNumber(s[1]) = false) then
      begin
       b1:=s;
       label3.Caption:=s;
      end;

       if (c <> 0) and (IsNumber(s[1]) = false) then
        begin
         c1:=s;
         label4.Caption:=s;
        end;
        
        if (d <> 0) and (IsNumber(s[1]) = false) then
         begin
          d1:=s;
          label5.Caption:=s;
         end;
                    
         if (a <> 0) and (b <> 0) and (c <> 0) and (d <> 0) and (IsNumber(s[1]) = true) then
          begin
           que := Copy(s,1,a-1);
           a1 := Copy(s,a+2,b-a);
           b1 := Copy(s,b+2,c-b);
           c1 := Copy(s,c+2,d-c);
           d1 := Copy(s,d+2,Length(s));
           label1.Caption:=que;
           label2.Caption:=a1;
           label3.Caption:=b1;
           label4.Caption:=c1;
           label5.Caption:=d1;
          end;
end;

может кому пригодится.
Осталось чуть подкорректировать, и по циклу погнать

Код:

function tform1.IsNumber(s: string): Boolean;
var
   i, v: integer;
begin
   Val(s, v, i);
   IsNumber := (i=0);
end;