откуда ошибка?

else
  if q=13
  then begin
  i_13:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[12];
  while i_13<1 do
  begin
        while x_13>0 do
    begin
      x_13:=pos(s2,s1);
      if x_13>0 then
      begin
        //inc(k[1]);
        k[13]:=1;
        delete(s1,1,x_13);
      end;
    end;
    inc(i_13);
    end;
  end
 
 
  else
  if q=14 then begin
  i_14:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[13];
  while i_14<1 do begin
        while x_14>0 do begin
      x_14:=pos(s2,s1);
      if x_14>0 then begin
        //inc(k[1]);
        k[14]:=1;
        delete(s1,1,x_14);
            end;
    end;
    inc(i_14);
    end;
  end
 
 
  else
  if q=15
  then begin
  i_15:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[14];
  while i_15<1 do
  begin
        while x_15>0 do
    begin
      x_15:=pos(s2,s1);
      if x_15>0 then
      begin
        //inc(k[1]);
        k[15]:=1;
        delete(s1,1,x_15);
      end;
    end;
    inc(i_15);
    end;
  end

for q:=1 to 29 do
begin
  if q=1
  then begin
  i_1:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[0];
  while i_1<1 do
  begin
        while x_1>0 do
    begin
      x_1:=pos(s2,s1);
      if x_1>0 then
      begin
        //inc(k[1]);
        k[1]:=1;
        delete(s1,1,x_1);
      end;
    end;
    inc(i_1);
    end;
  end
  else
  if q=2
  then begin
  i_2:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[1];
  while i_2<1 do
  begin
        while x_2>0 do
    begin
      x_2:=pos(s2,s1);
      if x_2>0 then
      begin
        //inc(k[1]);
        k[2]:=1;
        delete(s1,1,x_2);
      end;
    end;
    inc(i_2);
    end;
  end
  else
  if q=3
  then begin
  i_3:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[2];
  while i_3<1 do
  begin
        while x_3>0 do
    begin
      x_3:=pos(s2,s1);
      if x_3>0 then
      begin
        //inc(k[1]);
        k[3]:=1;
        delete(s1,1,x_3);
      end;
    end;
    inc(i_3);
    end;
  end
  else
  if q=4
  then begin
  i_4:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[3];
  while i_4<1 do
  begin
        while x_4>0 do
    begin
      x_4:=pos(s2,s1);
      if x_4>0 then
      begin
        //inc(k[1]);
        k[4]:=1;
        delete(s1,1,x_4);
      end;
    end;
    inc(i_4);
    end;
  end
  else
  if q=5
  then begin
  i_5:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[4];
  while i_5<1 do
  begin
        while x_5>0 do
    begin
      x_5:=pos(s2,s1);
      if x_5>0 then
      begin
        //inc(k[1]);
        k[5]:=1;
        delete(s1,1,x_5);
      end;
    end;
    inc(i_5);
    end;
  end
  else
  if q=6
  then begin
  i_6:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[5];
  while i_6<1 do
  begin
        while x_6>0 do
    begin
      x_6:=pos(s2,s1);
      if x_6>0 then
      begin
        //inc(k[1]);
        k[6]:=1;
        delete(s1,1,x_6);
      end;
    end;
    inc(i_6);
    end;
  end
  else
  if q=7
  then begin
  i_7:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[6];
  while i_7<1 do
  begin
        while x_7>0 do
    begin
      x_7:=pos(s2,s1);
      if x_7>0 then
      begin
        //inc(k[1]);
        k[7]:=1;
        delete(s1,1,x_7);
      end;
    end;
    inc(i_7);
    end;
  end
  else
  if q=8
  then begin
  i_8:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[7];
  while i_8<1 do
  begin
        while x_8>0 do
    begin
      x_8:=pos(s2,s1);
      if x_8>0 then
      begin
        //inc(k[1]);
        k[8]:=1;
        delete(s1,1,x_8);
      end;
    end;
    inc(i_8);
    end;
  end
  else
  if q=9
  then begin
  i_9:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[8];
  while i_9<1 do
  begin
        while x_9>0 do
    begin
      x_9:=pos(s2,s1);
      if x_9>0 then
      begin
        //inc(k[1]);
        k[9]:=1;
        delete(s1,1,x_9);
      end;
    end;
    inc(i_9);
    end;
  end
  else
  if q=10
  then begin
  i_10:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[9];
  while i_10<1 do
  begin
        while x_10>0 do
    begin
      x_10:=pos(s2,s1);
      if x_10>0 then
      begin
        //inc(k[1]);
        k[10]:=1;
        delete(s1,1,x_10);
      end;
    end;
    inc(i_10);
    end;
  end
  else
  if q=11
  then begin
  i_11:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[10];
  while i_11<1 do
  begin
        while x_11>0 do
    begin
      x_11:=pos(s2,s1);
      if x_11>0 then
      begin
        //inc(k[1]);
        k[11]:=1;
        delete(s1,1,x_11);
      end;
    end;
    inc(i_11);
    end;
  end
  else
  if q=12
  then begin
  i_12:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[11];
  while i_12<1 do
  begin
        while x_12>0 do
    begin
      x_12:=pos(s2,s1);
      if x_12>0 then
      begin
        //inc(k[1]);
        k[12]:=1;
        delete(s1,1,x_12);
      end;
    end;
    inc(i_12);
    end;
  end
  else
  if q=13
  then begin
  i_13:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[12];
  while i_13<1 do
  begin
        while x_13>0 do
    begin
      x_13:=pos(s2,s1);
      if x_13>0 then
      begin
        //inc(k[1]);
        k[13]:=1;
        delete(s1,1,x_13);
      end;
    end;
    inc(i_13);
    end;
  end
  else
  if q=14
  then begin
  i_14:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[13];
  while i_14<1 do
  begin
        while x_14>0 do
    begin
      x_14:=pos(s2,s1);
      if x_14>0 then
      begin
        //inc(k[1]);
        k[14]:=1;
        delete(s1,1,x_14);
      end;
    end;
    inc(i_14);
    end;
  end
  else
  if q=15
  then begin
  i_15:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[14];
  while i_15<1 do
  begin
        while x_15>0 do
    begin
      x_15:=pos(s2,s1);
      if x_15>0 then
      begin
        //inc(k[1]);
        k[15]:=1;
        delete(s1,1,x_15);
      end;
    end;
    inc(i_15);
    end;
  end
  else
  if q=16
  then begin
  i_16:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[15];
  while i_16<1 do
  begin
        while x_16>0 do
    begin
      x_16:=pos(s2,s1);
      if x_16>0 then
      begin
        //inc(k[1]);
        k[16]:=1;
        delete(s1,1,x_16);
      end;
    end;
    inc(i_16);
    end;
  end
  else
  if q=17
  then begin
  i_17:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[16];
  while i_17<1 do
  begin
        while x_17>0 do
    begin
      x_17:=pos(s2,s1);
      if x_17>0 then
      begin
        //inc(k[1]);
        k[17]:=1;
        delete(s1,1,x_17);
      end;
    end;
    inc(i_17);
    end;
  end
  else
  if q=18
  then begin
  i_18:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[17];
  while i_18<1 do
  begin
        while x_18>0 do
    begin
      x_18:=pos(s2,s1);
      if x_18>0 then
      begin
        //inc(k[1]);
        k[18]:=1;
        delete(s1,1,x_18);
      end;
    end;
    inc(i_18);
    end;
  end
  else
  if q=19
  then begin
  i_19:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[18];
  while i_19<1 do
  begin
        while x_19>0 do
    begin
      x_19:=pos(s2,s1);
      if x_19>0 then
      begin
        //inc(k[1]);
        k[19]:=1;
        delete(s1,19,x_1);
    end;
    inc(i_19);
    end;
  end
  else
  if q=20
  then begin
  i_20:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[19];
  while i_20<1 do
  begin
        while x_20>0 do
    begin
      x_20:=pos(s2,s1);
      if x_20>0 then
      begin
        //inc(k[1]);
        k[20]:=1;
        delete(s1,1,x_20);
      end;
    end;
    inc(i_20);
    end;
  end
  else
  if q=21
  then begin
  i_21:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[20];
  while i_21<1 do
  begin
        while x_21>0 do
    begin
      x_21:=pos(s2,s1);
      if x_21>0 then
      begin
        //inc(k[1]);
        k[21]:=1;
        delete(s1,1,x_21);
      end;
    end;
    inc(i_21);
    end;
  end
  else
  if q=22
  then begin
  i_22:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[21];
  while i_22<1 do
  begin
        while x_22>0 do
    begin
      x_22:=pos(s2,s1);
      if x_22>0 then
      begin
        //inc(k[1]);
        k[22]:=1;
        delete(s1,1,x_22);
      end;
    end;
    inc(i_22);
    end;
  end
  else
  if q=23
  then begin
  i_23:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[22];
  while i_23<1 do
  begin
        while x_23>0 do
    begin
      x_23:=pos(s2,s1);
      if x_23>0 then
      begin
        //inc(k[1]);
        k[23]:=1;
        delete(s1,1,x_23);
      end;
    end;
    inc(i_23);
    end;
  end
  else
  if q=24
  then begin
  i_24:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[23];
  while i_24<1 do
  begin
        while x_24>0 do
    begin
      x_24:=pos(s2,s1);
      if x_24>0 then
      begin
 
        k[24]:=1;
        delete(s1,1,x_24);
        end
      end;
    end;
    inc(i_24);
    end;
  end
  else
  if q=25
  then begin
  i_25:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[24];
  while i_25<1 do
  begin
        while x_25>0 do
    begin
      x_25:=pos(s2,s1);
      if x_25>0 then
      begin
        //inc(k[1]);
        k[25]:=1;
        delete(s1,1,x_25);
      end;
    end;
    inc(i_25);
    end;
  end
  else
  if q=26
  then begin
  i_26:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[25];
  while i_26<1 do
  begin
        while x_26>0 do
    begin
      x_26:=pos(s2,s1);
      if x_26>0 then
      begin
        //inc(k[1]);
        k[26]:=1;
        delete(s1,1,x_26);
      end;
    end;
    inc(i_26);
    end;
  end
  else
  if q=27
  then begin
  i_27:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[26];
  while i_27<1 do
  begin
        while x_27>0 do
    begin
      x_27:=pos(s2,s1);
      if x_27>0 then
      begin
        //inc(k[1]);
        k[27]:=1;
        delete(s1,1,x_27);
      end;
    end;
    inc(i_27);
    end;
  end
  else
  if q=28
  then begin
  i_28:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[27];
  while i_28<1 do
  begin
        while x_28>0 do
    begin
      x_28:=pos(s2,s1);
      if x_28>0 then
      begin
        //inc(k[1]);
        k[28]:=1;
        delete(s1,1,x_28);
      end;
    end;
    inc(i_28);
    end;
  end
  else
  if q=29
  then begin
  i_29:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[28];
  while i_29<1 do
  begin
        while x_29>0 do
    begin
      x_29:=pos(s2,s1);
      if x_29>0 then
      begin
        //inc(k[1]);
        k[29]:=1;
        delete(s1,1,x_29);
      end;
    end;
    inc(i_29);
    end;
  end;
j:=1 to 29 do
  if k[j]=1
  then begin
       Image4.Visible:=false;
       Image62.Visible:=true;
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  mesta:integer;
i_1,i_2,i_3,i_4,i_5,i_6,i_7,i_8,i_9,i_10,i_11,i_12,i_13,i_14,i_15,i_16,i_17,i_18,i_19,i_20,i_21,i_22,i_23,i_24,i_25,i_26,i_27,i_28,i_29:integer;
  
 
i_1_1,i_1_2,i_1_3,i_1_4,i_1_5,i_1_6,i_1_7,i_1_8,i_1_9,i_1_10,i_1_11,i_1_12,i_1_13,i_1_14,i_1_15,i_1_16,i_1_17,i_1_18,i_1_19,i_1_20,i_1_21,i_1_22,i_1_23,i_1_24,i_1_25,i_1_26,i_1_27,i_1_28,i_1_29:integer;
  
 
i_2_1,i_2_2,i_2_3,i_2_4,i_2_5,i_2_6,i_2_7,i_2_8,i_2_9,i_2_10,i_2_11,i_2_12,i_2_13,i_2_14,i_2_15,i_2_16,i_2_17,i_2_18,i_2_19,i_2_20,i_2_21,i_2_22,i_2_23,i_2_24,i_2_25,i_2_26,i_2_27,i_2_28,i_2_29:integer;
  
 
i_3_1,i_3_2,i_3_3,i_3_4,i_3_5,i_3_6,i_3_7,i_3_8,i_3_9,i_3_10,i_3_11,i_3_12,i_3_13,i_3_14,i_3_15,i_3_16,i_3_17,i_3_18,i_3_19,i_3_20,i_3_21,i_3_22,i_3_23,i_3_24,i_3_25,i_3_26,i_3_27,i_3_28,i_3_29:integer;
  
 
i_4_1,i_4_2,i_4_3,i_4_4,i_4_5,i_4_6,i_4_7,i_4_8,i_4_9,i_4_10,i_4_11,i_4_12,i_4_13,i_4_14,i_4_15,i_4_16,i_4_17,i_4_18,i_4_19,i_4_20,i_4_21,i_4_22,i_4_23,i_4_24,i_4_25,i_4_26,i_4_27,i_4_28,i_4_29:integer;
  
 
i_5_1,i_5_2,i_5_3,i_5_4,i_5_5,i_5_6,i_5_7,i_5_8,i_5_9,i_5_10,i_5_11,i_5_12,i_5_13,i_5_14,i_5_15,i_5_16,i_5_17,i_5_18,i_5_19,i_5_20,i_5_21,i_5_22,i_5_23,i_5_24,i_5_25,i_5_26,i_5_27,i_5_28,i_5_29:integer;
  
 
i_6_1,i_6_2,i_6_3,i_6_4,i_6_5,i_6_6,i_6_7,i_6_8,i_6_9,i_6_10,i_6_11,i_6_12,i_6_13,i_6_14,i_6_15,i_6_16,i_6_17,i_6_18,i_6_19,i_6_20,i_6_21,i_6_22,i_6_23,i_6_24,i_6_25,i_6_26,i_6_27,i_6_28,i_6_29:integer;
  
 
i_7_1,i_7_2,i_7_3,i_7_4,i_7_5,i_7_6,i_7_7,i_7_8,i_7_9,i_7_10,i_7_11,i_7_12,i_7_13,i_7_14,i_7_15,i_7_16,i_7_17,i_7_18,i_7_19,i_7_20,i_7_21,i_7_22,i_7_23,i_7_24,i_7_25,i_7_26,i_7_27,i_7_28,i_7_29:integer;
  
 
i_8_1,i_8_2,i_8_3,i_8_4,i_8_5,i_8_6,i_8_7,i_8_8,i_8_9,i_8_10,i_8_11,i_8_12,i_8_13,i_8_14,i_8_15,i_8_16,i_8_17,i_8_18,i_8_19,i_8_20,i_8_21,i_8_22,i_8_23,i_8_24,i_8_25,i_8_26,i_8_27,i_8_28,i_8_29:integer;
  
 
i_9_1,i_9_2,i_9_3,i_9_4,i_9_5,i_9_6,i_9_7,i_9_8,i_9_9,i_9_10,i_9_11,i_9_12,i_9_13,i_9_14,i_9_15,i_9_16,i_9_17,i_9_18,i_9_19,i_9_20,i_9_21,i_9_22,i_9_23,i_9_24,i_9_25,i_9_26,i_9_27,i_9_28,i_9_29:integer;
  
 
i_10_1,i_10_2,i_10_3,i_10_4,i_10_5,i_10_6,i_10_7,i_10_8,i_10_9,i_10_10,i_10_11,i_10_12,i_10_13,i_10_14,i_10_15,i_10_16,i_10_17,i_10_18,i_10_19,i_10_20,i_10_21,i_10_22,i_10_23,i_10_24,i_10_25,i_10_26,i_10_27,i_10_28,i_10_29:integer;
  
 
i_11_1,i_11_2,i_11_3,i_11_4,i_11_5,i_11_6,i_11_7,i_11_8,i_11_9,i_11_10,i_11_11,i_11_12,i_11_13,i_11_14,i_11_15,i_11_16,i_11_17,i_11_18,i_11_19,i_11_20,i_11_21,i_11_22,i_11_23,i_11_24,i_11_25,i_11_26,i_11_27,i_11_28,i_11_29:integer;
  
 
i_12_1,i_12_2,i_12_3,i_12_4,i_12_5,i_12_6,i_12_7,i_12_8,i_12_9,i_12_10,i_12_11,i_12_12,i_12_13,i_12_14,i_12_15,i_12_16,i_12_17,i_12_18,i_12_19,i_12_20,i_12_21,i_12_22,i_12_23,i_12_24,i_12_25,i_12_26,i_12_27,i_12_28,i_12_29:integer;
  
 
i_13_1,i_13_2,i_13_3,i_13_4,i_13_5,i_13_6,i_13_7,i_13_8,i_13_9,i_13_10,i_13_11,i_13_12,i_13_13,i_13_14,i_13_15,i_13_16,i_13_17,i_13_18,i_13_19,i_13_20,i_13_21,i_13_22,i_13_23,i_13_24,i_13_25,i_13_26,i_13_27,i_13_28,i_13_29:integer;
  
 
i_14_1,i_14_2,i_14_3,i_14_4,i_14_5,i_14_6,i_14_7,i_14_8,i_14_9,i_14_10,i_14_11,i_14_12,i_14_13,i_14_14,i_14_15,i_14_16,i_14_17,i_14_18,i_14_19,i_14_20,i_14_21,i_14_22,i_14_23,i_14_24,i_14_25,i_14_26,i_14_27,i_14_28,i_14_29:integer;
  
 
i_15_1,i_15_2,i_15_3,i_15_4,i_15_5,i_15_6,i_15_7,i_15_8,i_15_9,i_15_10,i_15_11,i_15_12,i_15_13,i_15_14,i_15_15,i_15_16,i_15_17,i_15_18,i_15_19,i_15_20,i_15_21,i_15_22,i_15_23,i_15_24,i_15_25,i_15_26,i_15_27,i_15_28,i_15_29:integer;
  
 
i_16_1,i_16_2,i_16_3,i_16_4,i_16_5,i_16_6,i_16_7,i_16_8,i_16_9,i_16_10,i_16_11,i_16_12,i_16_13,i_16_14,i_16_15,i_16_16,i_16_17,i_16_18,i_16_19,i_16_20,i_16_21,i_16_22,i_16_23,i_16_24,i_16_25,i_16_26,i_16_27,i_16_28,i_16_29:integer;
  
 
i_17_1,i_17_2,i_17_3,i_17_4,i_17_5,i_17_6,i_17_7,i_17_8,i_17_9,i_17_10,i_17_11,i_17_12,i_17_13,i_17_14,i_17_15,i_17_16,i_17_17,i_17_18,i_17_19,i_17_20,i_17_21,i_17_22,i_17_23,i_17_24,i_17_25,i_17_26,i_17_27,i_17_28,i_17_29:integer;
  
 
i_18_1,i_18_2,i_18_3,i_18_4,i_18_5,i_18_6,i_18_7,i_18_8,i_18_9,i_18_10,i_18_11,i_18_12,i_18_13,i_18_14,i_18_15,i_18_16,i_18_17,i_18_18,i_18_19,i_18_20,i_18_21,i_18_22,i_18_23,i_18_24,i_18_25,i_18_26,i_18_27,i_18_28,i_18_29:integer;
  
 
i_19_1,i_19_2,i_19_3,i_19_4,i_19_5,i_19_6,i_19_7,i_19_8,i_19_9,i_19_10,i_19_11,i_19_12,i_19_13,i_19_14,i_19_15,i_19_16,i_19_17,i_19_18,i_19_19,i_19_20,i_19_21,i_19_22,i_19_23,i_19_24,i_19_25,i_19_26,i_19_27,i_19_28,i_19_29:integer;
  
 
i_20_1,i_20_2,i_20_3,i_20_4,i_20_5,i_20_6,i_20_7,i_20_8,i_20_9,i_20_10,i_20_11,i_20_12,i_20_13,i_20_14,i_20_15,i_20_16,i_20_17,i_20_18,i_20_19,i_20_20,i_20_21,i_20_22,i_20_23,i_20_24,i_20_25,i_20_26,i_20_27,i_20_28,i_20_29:integer;
  
 
i_21_1,i_21_2,i_21_3,i_21_4,i_21_5,i_21_6,i_21_7,i_21_8,i_21_9,i_21_10,i_21_11,i_21_12,i_21_13,i_21_14,i_21_15,i_21_16,i_21_17,i_21_18,i_21_19,i_21_20,i_21_21,i_21_22,i_21_23,i_21_24,i_21_25,i_21_26,i_21_27,i_21_28,i_21_29:integer;
  
 
i_22_1,i_22_2,i_22_3,i_22_4,i_22_5,i_22_6,i_22_7,i_22_8,i_22_9,i_22_10,i_22_11,i_22_12,i_22_13,i_22_14,i_22_15,i_22_16,i_22_17,i_22_18,i_22_19,i_22_20,i_22_21,i_22_22,i_22_23,i_22_24,i_22_25,i_22_26,i_22_27,i_22_28,i_22_29:integer;
  
 
i_23_1,i_23_2,i_23_3,i_23_4,i_23_5,i_23_6,i_23_7,i_23_8,i_23_9,i_23_10,i_23_11,i_23_12,i_23_13,i_23_14,i_23_15,i_23_16,i_23_17,i_23_18,i_23_19,i_23_20,i_23_21,i_23_22,i_23_23,i_23_24,i_23_25,i_23_26,i_23_27,i_23_28,i_23_29:integer;
  
 
i_24_1,i_24_2,i_24_3,i_24_4,i_24_5,i_24_6,i_24_7,i_24_8,i_24_9,i_24_10,i_24_11,i_24_12,i_24_13,i_24_14,i_24_15,i_24_16,i_24_17,i_24_18,i_24_19,i_24_20,i_24_21,i_24_22,i_24_23,i_24_24,i_24_25,i_24_26,i_24_27,i_24_28,i_24_29:integer;
  
 
i_25_1,i_25_2,i_25_3,i_25_4,i_25_5,i_25_6,i_25_7,i_25_8,i_25_9,i_25_10,i_25_11,i_25_12,i_25_13,i_25_14,i_25_15,i_25_16,i_25_17,i_25_18,i_25_19,i_25_20,i_25_21,i_25_22,i_25_23,i_25_24,i_25_25,i_25_26,i_25_27,i_25_28,i_25_29:integer;
  
 
i_26_1,i_26_2,i_26_3,i_26_4,i_26_5,i_26_6,i_26_7,i_26_8,i_26_9,i_26_10,i_26_11,i_26_12,i_26_13,i_26_14,i_26_15,i_26_16,i_26_17,i_26_18,i_26_19,i_26_20,i_26_21,i_26_22,i_26_23,i_26_24,i_26_25,i_26_26,i_26_27,i_26_28,i_26_29:integer;
  
 
i_27_1,i_27_2,i_27_3,i_27_4,i_27_5,i_27_6,i_27_7,i_27_8,i_27_9,i_27_10,i_27_11,i_27_12,i_27_13,i_27_14,i_27_15,i_27_16,i_27_17,i_27_18,i_27_19,i_27_20,i_27_21,i_27_22,i_27_23,i_27_24,i_27_25,i_27_26,i_27_27,i_27_28,i_27_29:integer;
  
 
i_28_1,i_28_2,i_28_3,i_28_4,i_28_5,i_28_6,i_28_7,i_28_8,i_28_9,i_28_10,i_28_11,i_28_12,i_28_13,i_28_14,i_28_15,i_28_16,i_28_17,i_28_18,i_28_19,i_28_20,i_28_21,i_28_22,i_28_23,i_28_24,i_28_25,i_28_26,i_28_27,i_28_28,i_28_29:integer;
  
x_1,x_2,x_3,x_4,x_5,x_6,x_7,x_8,x_9,x_10,x_11,x_12,x_13,x_14,x_15,x_16,x_17,x_18,x_19,x_20,x_21,x_22,x_23,x_24,x_25,x_26,x_27,x_28,x_29:integer;
  
 
x_1_1,x_1_2,x_1_3,x_1_4,x_1_5,x_1_6,x_1_7,x_1_8,x_1_9,x_1_10,x_1_11,x_1_12,x_1_13,x_1_14,x_1_15,x_1_16,x_1_17,x_1_18,x_1_19,x_1_20,x_1_21,x_1_22,x_1_23,x_1_24,x_1_25,x_1_26,x_1_27,x_1_28,x_1_29:integer;
  
 
x_2_1,x_2_2,x_2_3,x_2_4,x_2_5,x_2_6,x_2_7,x_2_8,x_2_9,x_2_10,x_2_11,x_2_12,x_2_13,x_2_14,x_2_15,x_2_16,x_2_17,x_2_18,x_2_19,x_2_20,x_2_21,x_2_22,x_2_23,x_2_24,x_2_25,x_2_26,x_2_27,x_2_28,x_2_29:integer;
  
 
x_3_1,x_3_2,x_3_3,x_3_4,x_3_5,x_3_6,x_3_7,x_3_8,x_3_9,x_3_10,x_3_11,x_3_12,x_3_13,x_3_14,x_3_15,x_3_16,x_3_17,x_3_18,x_3_19,x_3_20,x_3_21,x_3_22,x_3_23,x_3_24,x_3_25,x_3_26,x_3_27,x_3_28,x_3_29:integer;
  
 
x_4_1,x_4_2,x_4_3,x_4_4,x_4_5,x_4_6,x_4_7,x_4_8,x_4_9,x_4_10,x_4_11,x_4_12,x_4_13,x_4_14,x_4_15,x_4_16,x_4_17,x_4_18,x_4_19,x_4_20,x_4_21,x_4_22,x_4_23,x_4_24,x_4_25,x_4_26,x_4_27,x_4_28,x_4_29:integer;
  
 
x_5_1,x_5_2,x_5_3,x_5_4,x_5_5,x_5_6,x_5_7,x_5_8,x_5_9,x_5_10,x_5_11,x_5_12,x_5_13,x_5_14,x_5_15,x_5_16,x_5_17,x_5_18,x_5_19,x_5_20,x_5_21,x_5_22,x_5_23,x_5_24,x_5_25,x_5_26,x_5_27,x_5_28,x_5_29:integer;
  
 
x_6_1,x_6_2,x_6_3,x_6_4,x_6_5,x_6_6,x_6_7,x_6_8,x_6_9,x_6_10,x_6_11,x_6_12,x_6_13,x_6_14,x_6_15,x_6_16,x_6_17,x_6_18,x_6_19,x_6_20,x_6_21,x_6_22,x_6_23,x_6_24,x_6_25,x_6_26,x_6_27,x_6_28,x_6_29:integer;
  
 
x_7_1,x_7_2,x_7_3,x_7_4,x_7_5,x_7_6,x_7_7,x_7_8,x_7_9,x_7_10,x_7_11,x_7_12,x_7_13,x_7_14,x_7_15,x_7_16,x_7_17,x_7_18,x_7_19,x_7_20,x_7_21,x_7_22,x_7_23,x_7_24,x_7_25,x_7_26,x_7_27,x_7_28,x_7_29:integer;
  
 
x_8_1,x_8_2,x_8_3,x_8_4,x_8_5,x_8_6,x_8_7,x_8_8,x_8_9,x_8_10,x_8_11,x_8_12,x_8_13,x_8_14,x_8_15,x_8_16,x_8_17,x_8_18,x_8_19,x_8_20,x_8_21,x_8_22,x_8_23,x_8_24,x_8_25,x_8_26,x_8_27,x_8_28,x_8_29:integer;
  
 
x_9_1,x_9_2,x_9_3,x_9_4,x_9_5,x_9_6,x_9_7,x_9_8,x_9_9,x_9_10,x_9_11,x_9_12,x_9_13,x_9_14,x_9_15,x_9_16,x_9_17,x_9_18,x_9_19,x_9_20,x_9_21,x_9_22,x_9_23,x_9_24,x_9_25,x_9_26,x_9_27,x_9_28,x_9_29:integer;
  
 
x_10_1,x_10_2,x_10_3,x_10_4,x_10_5,x_10_6,x_10_7,x_10_8,x_10_9,x_10_10,x_10_11,x_10_12,x_10_13,x_10_14,x_10_15,x_10_16,x_10_17,x_10_18,x_10_19,x_10_20,x_10_21,x_10_22,x_10_23,x_10_24,x_10_25,x_10_26,x_10_27,x_10_28,x_10_29:integer;
  
 
x_11_1,x_11_2,x_11_3,x_11_4,x_11_5,x_11_6,x_11_7,x_11_8,x_11_9,x_11_10,x_11_11,x_11_12,x_11_13,x_11_14,x_11_15,x_11_16,x_11_17,x_11_18,x_11_19,x_11_20,x_11_21,x_11_22,x_11_23,x_11_24,x_11_25,x_11_26,x_11_27,x_11_28,x_11_29:integer;
  
 
x_12_1,x_12_2,x_12_3,x_12_4,x_12_5,x_12_6,x_12_7,x_12_8,x_12_9,x_12_10,x_12_11,x_12_12,x_12_13,x_12_14,x_12_15,x_12_16,x_12_17,x_12_18,x_12_19,x_12_20,x_12_21,x_12_22,x_12_23,x_12_24,x_12_25,x_12_26,x_12_27,x_12_28,x_12_29:integer;
  
 
x_13_1,x_13_2,x_13_3,x_13_4,x_13_5,x_13_6,x_13_7,x_13_8,x_13_9,x_13_10,x_13_11,x_13_12,x_13_13,x_13_14,x_13_15,x_13_16,x_13_17,x_13_18,x_13_19,x_13_20,x_13_21,x_13_22,x_13_23,x_13_24,x_13_25,x_13_26,x_13_27,x_13_28,x_13_29:integer;
  
 
x_14_1,x_14_2,x_14_3,x_14_4,x_14_5,x_14_6,x_14_7,x_14_8,x_14_9,x_14_10,x_14_11,x_14_12,x_14_13,x_14_14,x_14_15,x_14_16,x_14_17,x_14_18,x_14_19,x_14_20,x_14_21,x_14_22,x_14_23,x_14_24,x_14_25,x_14_26,x_14_27,x_14_28,x_14_29:integer;
  
 
x_15_1,x_15_2,x_15_3,x_15_4,x_15_5,x_15_6,x_15_7,x_15_8,x_15_9,x_15_10,x_15_11,x_15_12,x_15_13,x_15_14,x_15_15,x_15_16,x_15_17,x_15_18,x_15_19,x_15_20,x_15_21,x_15_22,x_15_23,x_15_24,x_15_25,x_15_26,x_15_27,x_15_28,x_15_29:integer;
  
 
x_16_1,x_16_2,x_16_3,x_16_4,x_16_5,x_16_6,x_16_7,x_16_8,x_16_9,x_16_10,x_16_11,x_16_12,x_16_13,x_16_14,x_16_15,x_16_16,x_16_17,x_16_18,x_16_19,x_16_20,x_16_21,x_16_22,x_16_23,x_16_24,x_16_25,x_16_26,x_16_27,x_16_28,x_16_29:integer;
  
 
x_17_1,x_17_2,x_17_3,x_17_4,x_17_5,x_17_6,x_17_7,x_17_8,x_17_9,x_17_10,x_17_11,x_17_12,x_17_13,x_17_14,x_17_15,x_17_16,x_17_17,x_17_18,x_17_19,x_17_20,x_17_21,x_17_22,x_17_23,x_17_24,x_17_25,x_17_26,x_17_27,x_17_28,x_17_29:integer;
  
 
x_18_1,x_18_2,x_18_3,x_18_4,x_18_5,x_18_6,x_18_7,x_18_8,x_18_9,x_18_10,x_18_11,x_18_12,x_18_13,x_18_14,x_18_15,x_18_16,x_18_17,x_18_18,x_18_19,x_18_20,x_18_21,x_18_22,x_18_23,x_18_24,x_18_25,x_18_26,x_18_27,x_18_28,x_18_29:integer;
  
 
x_19_1,x_19_2,x_19_3,x_19_4,x_19_5,x_19_6,x_19_7,x_19_8,x_19_9,x_19_10,x_19_11,x_19_12,x_19_13,x_19_14,x_19_15,x_19_16,x_19_17,x_19_18,x_19_19,x_19_20,x_19_21,x_19_22,x_19_23,x_19_24,x_19_25,x_19_26,x_19_27,x_19_28,x_19_29:integer;
  
 
x_20_1,x_20_2,x_20_3,x_20_4,x_20_5,x_20_6,x_20_7,x_20_8,x_20_9,x_20_10,x_20_11,x_20_12,x_20_13,x_20_14,x_20_15,x_20_16,x_20_17,x_20_18,x_20_19,x_20_20,x_20_21,x_20_22,x_20_23,x_20_24,x_20_25,x_20_26,x_20_27,x_20_28,x_20_29:integer;
  
 
x_21_1,x_21_2,x_21_3,x_21_4,x_21_5,x_21_6,x_21_7,x_21_8,x_21_9,x_21_10,x_21_11,x_21_12,x_21_13,x_21_14,x_21_15,x_21_16,x_21_17,x_21_18,x_21_19,x_21_20,x_21_21,x_21_22,x_21_23,x_21_24,x_21_25,x_21_26,x_21_27,x_21_28,x_21_29:integer;
  
 
x_22_1,x_22_2,x_22_3,x_22_4,x_22_5,x_22_6,x_22_7,x_22_8,x_22_9,x_22_10,x_22_11,x_22_12,x_22_13,x_22_14,x_22_15,x_22_16,x_22_17,x_22_18,x_22_19,x_22_20,x_22_21,x_22_22,x_22_23,x_22_24,x_22_25,x_22_26,x_22_27,x_22_28,x_22_29:integer;
  
 
x_23_1,x_23_2,x_23_3,x_23_4,x_23_5,x_23_6,x_23_7,x_23_8,x_23_9,x_23_10,x_23_11,x_23_12,x_23_13,x_23_14,x_23_15,x_23_16,x_23_17,x_23_18,x_23_19,x_23_20,x_23_21,x_23_22,x_23_23,x_23_24,x_23_25,x_23_26,x_23_27,x_23_28,x_23_29:integer;
  
 
x_24_1,x_24_2,x_24_3,x_24_4,x_24_5,x_24_6,x_24_7,x_24_8,x_24_9,x_24_10,x_24_11,x_24_12,x_24_13,x_24_14,x_24_15,x_24_16,x_24_17,x_24_18,x_24_19,x_24_20,x_24_21,x_24_22,x_24_23,x_24_24,x_24_25,x_24_26,x_24_27,x_24_28,x_24_29:integer;
  
 
x_25_1,x_25_2,x_25_3,x_25_4,x_25_5,x_25_6,x_25_7,x_25_8,x_25_9,x_25_10,x_25_11,x_25_12,x_25_13,x_25_14,x_25_15,x_25_16,x_25_17,x_25_18,x_25_19,x_25_20,x_25_21,x_25_22,x_25_23,x_25_24,x_25_25,x_25_26,x_25_27,x_25_28,x_25_29:integer;
  
 
x_26_1,x_26_2,x_26_3,x_26_4,x_26_5,x_26_6,x_26_7,x_26_8,x_26_9,x_26_10,x_26_11,x_26_12,x_26_13,x_26_14,x_26_15,x_26_16,x_26_17,x_26_18,x_26_19,x_26_20,x_26_21,x_26_22,x_26_23,x_26_24,x_26_25,x_26_26,x_26_27,x_26_28,x_26_29:integer;
  
 
x_27_1,x_27_2,x_27_3,x_27_4,x_27_5,x_27_6,x_27_7,x_27_8,x_27_9,x_27_10,x_27_11,x_27_12,x_27_13,x_27_14,x_27_15,x_27_16,x_27_17,x_27_18,x_27_19,x_27_20,x_27_21,x_27_22,x_27_23,x_27_24,x_27_25,x_27_26,x_27_27,x_27_28,x_27_29:integer;
  
 
x_28_1,x_28_2,x_28_3,x_28_4,x_28_5,x_28_6,x_28_7,x_28_8,x_28_9,x_28_10,x_28_11,x_28_12,x_28_13,x_28_14,x_28_15,x_28_16,x_28_17,x_28_18,x_28_19,x_28_20,x_28_21,x_28_22,x_28_23,x_28_24,x_28_25,x_28_26,x_28_27,x_28_28,x_28_29:integer;
k: array [1..29] of integer;
k1: array [1..29] of integer;
k2: array [1..29] of integer;
k3: array [1..29] of integer;
k4: array [1..29] of integer;
k5: array [1..29] of integer;
k6: array [1..29] of integer;
k7: array [1..29] of integer;
k8: array [1..29] of integer;
k9: array [1..29] of integer;
k10: array [1..29] of integer;
k11: array [1..29] of integer;
k12: array [1..29] of integer;
k13: array [1..29] of integer;
k14: array [1..29] of integer;
k15: array [1..29] of integer;
k16: array [1..29] of integer;
k17: array [1..29] of integer;
k18: array [1..29] of integer;
k19: array [1..29] of integer;
k21: array [1..29] of integer;
k22: array [1..29] of integer;
k23: array [1..29] of integer;
k24: array [1..29] of integer;
k25: array [1..29] of integer;
k26: array [1..29] of integer;
k27: array [1..29] of integer;
k28: array [1..29] of integer;
q,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,q12,q13,q14,q15,q16,q17,q18,q19,q20,q21,q22,q23,q24,q25,q26,q27,q28:integer;
j,j1,j2,j3,j4,j5,j6,j7,j8,j9,j10,j11,j12,j13,j14,j15,j16,j17,j18,j19,j20,j21,j22,j23,j24,j25,j26,j27,j28:integer;
s1,s2:string;
begin
  mesta:=StrToInt(SpinEdit1.Text)+StrToInt(SpinEdit2.Text);
  if mesta>ADOQuery1.Fields[5].AsInteger
  then messageDlg('Ìåñòà íà ýòî âðåìÿ çàêîí÷èëèñü, ëèáî ââåäåíî áîëüøå ìåñò, ÷åì ñâîáîäíûõ', mtError, [mbOK],0)
  else begin
       Form6.Show;
       case mesta of
       1:     begin
              Label20.Caption:='Âûáðàíî ìåñòî: ';
              Form6.Label1.Caption:='Âûáåðèòå '+IntToStr(mesta)+' ìåñòî';
              end;
       2..4:  begin
              Label20.Caption:='Âûáðàíû ìåñòà: ';
              Form6.Label1.Caption:='Âûáåðèòå '+IntToStr(mesta)+' ìåñòà';
              end;
       5..45: begin
              Label20.Caption:='Âûáðàíû ìåñòà: ';
              Form6.Label1.Caption:='Âûáåðèòå '+IntToStr(mesta)+' ìåñò';
              end;
       end;
       Form6.Image1.Visible:=true;
       if ADOQuery1.Fields[4].AsInteger=29
       then begin

procedure TForm1.Button1Click(Sender: TObject);
var
  mesta:integer;
i_1,i_2,i_3,i_4,i_5,i_6,i_7,i_8,i_9,i_10,i_11,i_12,i_13,i_14,i_15,i_16,i_17,i_18,i_19,i_20,i_21,i_22,i_23,i_24,i_25,i_26,i_27,i_28,i_29:integer;
  
 
i_1_1,i_1_2,i_1_3,i_1_4,i_1_5,i_1_6,i_1_7,i_1_8,i_1_9,i_1_10,i_1_11,i_1_12,i_1_13,i_1_14,i_1_15,i_1_16,i_1_17,i_1_18,i_1_19,i_1_20,i_1_21,i_1_22,i_1_23,i_1_24,i_1_25,i_1_26,i_1_27,i_1_28,i_1_29:integer;
  
 
i_2_1,i_2_2,i_2_3,i_2_4,i_2_5,i_2_6,i_2_7,i_2_8,i_2_9,i_2_10,i_2_11,i_2_12,i_2_13,i_2_14,i_2_15,i_2_16,i_2_17,i_2_18,i_2_19,i_2_20,i_2_21,i_2_22,i_2_23,i_2_24,i_2_25,i_2_26,i_2_27,i_2_28,i_2_29:integer;
  
 
i_3_1,i_3_2,i_3_3,i_3_4,i_3_5,i_3_6,i_3_7,i_3_8,i_3_9,i_3_10,i_3_11,i_3_12,i_3_13,i_3_14,i_3_15,i_3_16,i_3_17,i_3_18,i_3_19,i_3_20,i_3_21,i_3_22,i_3_23,i_3_24,i_3_25,i_3_26,i_3_27,i_3_28,i_3_29:integer;
  
 
i_4_1,i_4_2,i_4_3,i_4_4,i_4_5,i_4_6,i_4_7,i_4_8,i_4_9,i_4_10,i_4_11,i_4_12,i_4_13,i_4_14,i_4_15,i_4_16,i_4_17,i_4_18,i_4_19,i_4_20,i_4_21,i_4_22,i_4_23,i_4_24,i_4_25,i_4_26,i_4_27,i_4_28,i_4_29:integer;
  
 
i_5_1,i_5_2,i_5_3,i_5_4,i_5_5,i_5_6,i_5_7,i_5_8,i_5_9,i_5_10,i_5_11,i_5_12,i_5_13,i_5_14,i_5_15,i_5_16,i_5_17,i_5_18,i_5_19,i_5_20,i_5_21,i_5_22,i_5_23,i_5_24,i_5_25,i_5_26,i_5_27,i_5_28,i_5_29:integer;
  
 
i_6_1,i_6_2,i_6_3,i_6_4,i_6_5,i_6_6,i_6_7,i_6_8,i_6_9,i_6_10,i_6_11,i_6_12,i_6_13,i_6_14,i_6_15,i_6_16,i_6_17,i_6_18,i_6_19,i_6_20,i_6_21,i_6_22,i_6_23,i_6_24,i_6_25,i_6_26,i_6_27,i_6_28,i_6_29:integer;
  
 
i_7_1,i_7_2,i_7_3,i_7_4,i_7_5,i_7_6,i_7_7,i_7_8,i_7_9,i_7_10,i_7_11,i_7_12,i_7_13,i_7_14,i_7_15,i_7_16,i_7_17,i_7_18,i_7_19,i_7_20,i_7_21,i_7_22,i_7_23,i_7_24,i_7_25,i_7_26,i_7_27,i_7_28,i_7_29:integer;
  
 
i_8_1,i_8_2,i_8_3,i_8_4,i_8_5,i_8_6,i_8_7,i_8_8,i_8_9,i_8_10,i_8_11,i_8_12,i_8_13,i_8_14,i_8_15,i_8_16,i_8_17,i_8_18,i_8_19,i_8_20,i_8_21,i_8_22,i_8_23,i_8_24,i_8_25,i_8_26,i_8_27,i_8_28,i_8_29:integer;
  
 
i_9_1,i_9_2,i_9_3,i_9_4,i_9_5,i_9_6,i_9_7,i_9_8,i_9_9,i_9_10,i_9_11,i_9_12,i_9_13,i_9_14,i_9_15,i_9_16,i_9_17,i_9_18,i_9_19,i_9_20,i_9_21,i_9_22,i_9_23,i_9_24,i_9_25,i_9_26,i_9_27,i_9_28,i_9_29:integer;
  
 
i_10_1,i_10_2,i_10_3,i_10_4,i_10_5,i_10_6,i_10_7,i_10_8,i_10_9,i_10_10,i_10_11,i_10_12,i_10_13,i_10_14,i_10_15,i_10_16,i_10_17,i_10_18,i_10_19,i_10_20,i_10_21,i_10_22,i_10_23,i_10_24,i_10_25,i_10_26,i_10_27,i_10_28,i_10_29:integer;
  
 
i_11_1,i_11_2,i_11_3,i_11_4,i_11_5,i_11_6,i_11_7,i_11_8,i_11_9,i_11_10,i_11_11,i_11_12,i_11_13,i_11_14,i_11_15,i_11_16,i_11_17,i_11_18,i_11_19,i_11_20,i_11_21,i_11_22,i_11_23,i_11_24,i_11_25,i_11_26,i_11_27,i_11_28,i_11_29:integer;
  
 
i_12_1,i_12_2,i_12_3,i_12_4,i_12_5,i_12_6,i_12_7,i_12_8,i_12_9,i_12_10,i_12_11,i_12_12,i_12_13,i_12_14,i_12_15,i_12_16,i_12_17,i_12_18,i_12_19,i_12_20,i_12_21,i_12_22,i_12_23,i_12_24,i_12_25,i_12_26,i_12_27,i_12_28,i_12_29:integer;
  
 
i_13_1,i_13_2,i_13_3,i_13_4,i_13_5,i_13_6,i_13_7,i_13_8,i_13_9,i_13_10,i_13_11,i_13_12,i_13_13,i_13_14,i_13_15,i_13_16,i_13_17,i_13_18,i_13_19,i_13_20,i_13_21,i_13_22,i_13_23,i_13_24,i_13_25,i_13_26,i_13_27,i_13_28,i_13_29:integer;
  
 
i_14_1,i_14_2,i_14_3,i_14_4,i_14_5,i_14_6,i_14_7,i_14_8,i_14_9,i_14_10,i_14_11,i_14_12,i_14_13,i_14_14,i_14_15,i_14_16,i_14_17,i_14_18,i_14_19,i_14_20,i_14_21,i_14_22,i_14_23,i_14_24,i_14_25,i_14_26,i_14_27,i_14_28,i_14_29:integer;
  
 
i_15_1,i_15_2,i_15_3,i_15_4,i_15_5,i_15_6,i_15_7,i_15_8,i_15_9,i_15_10,i_15_11,i_15_12,i_15_13,i_15_14,i_15_15,i_15_16,i_15_17,i_15_18,i_15_19,i_15_20,i_15_21,i_15_22,i_15_23,i_15_24,i_15_25,i_15_26,i_15_27,i_15_28,i_15_29:integer;
  
 
i_16_1,i_16_2,i_16_3,i_16_4,i_16_5,i_16_6,i_16_7,i_16_8,i_16_9,i_16_10,i_16_11,i_16_12,i_16_13,i_16_14,i_16_15,i_16_16,i_16_17,i_16_18,i_16_19,i_16_20,i_16_21,i_16_22,i_16_23,i_16_24,i_16_25,i_16_26,i_16_27,i_16_28,i_16_29:integer;
  
 
i_17_1,i_17_2,i_17_3,i_17_4,i_17_5,i_17_6,i_17_7,i_17_8,i_17_9,i_17_10,i_17_11,i_17_12,i_17_13,i_17_14,i_17_15,i_17_16,i_17_17,i_17_18,i_17_19,i_17_20,i_17_21,i_17_22,i_17_23,i_17_24,i_17_25,i_17_26,i_17_27,i_17_28,i_17_29:integer;
  
 
i_18_1,i_18_2,i_18_3,i_18_4,i_18_5,i_18_6,i_18_7,i_18_8,i_18_9,i_18_10,i_18_11,i_18_12,i_18_13,i_18_14,i_18_15,i_18_16,i_18_17,i_18_18,i_18_19,i_18_20,i_18_21,i_18_22,i_18_23,i_18_24,i_18_25,i_18_26,i_18_27,i_18_28,i_18_29:integer;
  
 
i_19_1,i_19_2,i_19_3,i_19_4,i_19_5,i_19_6,i_19_7,i_19_8,i_19_9,i_19_10,i_19_11,i_19_12,i_19_13,i_19_14,i_19_15,i_19_16,i_19_17,i_19_18,i_19_19,i_19_20,i_19_21,i_19_22,i_19_23,i_19_24,i_19_25,i_19_26,i_19_27,i_19_28,i_19_29:integer;
  
 
i_20_1,i_20_2,i_20_3,i_20_4,i_20_5,i_20_6,i_20_7,i_20_8,i_20_9,i_20_10,i_20_11,i_20_12,i_20_13,i_20_14,i_20_15,i_20_16,i_20_17,i_20_18,i_20_19,i_20_20,i_20_21,i_20_22,i_20_23,i_20_24,i_20_25,i_20_26,i_20_27,i_20_28,i_20_29:integer;
  
 
i_21_1,i_21_2,i_21_3,i_21_4,i_21_5,i_21_6,i_21_7,i_21_8,i_21_9,i_21_10,i_21_11,i_21_12,i_21_13,i_21_14,i_21_15,i_21_16,i_21_17,i_21_18,i_21_19,i_21_20,i_21_21,i_21_22,i_21_23,i_21_24,i_21_25,i_21_26,i_21_27,i_21_28,i_21_29:integer;
  
 
i_22_1,i_22_2,i_22_3,i_22_4,i_22_5,i_22_6,i_22_7,i_22_8,i_22_9,i_22_10,i_22_11,i_22_12,i_22_13,i_22_14,i_22_15,i_22_16,i_22_17,i_22_18,i_22_19,i_22_20,i_22_21,i_22_22,i_22_23,i_22_24,i_22_25,i_22_26,i_22_27,i_22_28,i_22_29:integer;
  
 
i_23_1,i_23_2,i_23_3,i_23_4,i_23_5,i_23_6,i_23_7,i_23_8,i_23_9,i_23_10,i_23_11,i_23_12,i_23_13,i_23_14,i_23_15,i_23_16,i_23_17,i_23_18,i_23_19,i_23_20,i_23_21,i_23_22,i_23_23,i_23_24,i_23_25,i_23_26,i_23_27,i_23_28,i_23_29:integer;
  
 
i_24_1,i_24_2,i_24_3,i_24_4,i_24_5,i_24_6,i_24_7,i_24_8,i_24_9,i_24_10,i_24_11,i_24_12,i_24_13,i_24_14,i_24_15,i_24_16,i_24_17,i_24_18,i_24_19,i_24_20,i_24_21,i_24_22,i_24_23,i_24_24,i_24_25,i_24_26,i_24_27,i_24_28,i_24_29:integer;
  
 
i_25_1,i_25_2,i_25_3,i_25_4,i_25_5,i_25_6,i_25_7,i_25_8,i_25_9,i_25_10,i_25_11,i_25_12,i_25_13,i_25_14,i_25_15,i_25_16,i_25_17,i_25_18,i_25_19,i_25_20,i_25_21,i_25_22,i_25_23,i_25_24,i_25_25,i_25_26,i_25_27,i_25_28,i_25_29:integer;
  
 
i_26_1,i_26_2,i_26_3,i_26_4,i_26_5,i_26_6,i_26_7,i_26_8,i_26_9,i_26_10,i_26_11,i_26_12,i_26_13,i_26_14,i_26_15,i_26_16,i_26_17,i_26_18,i_26_19,i_26_20,i_26_21,i_26_22,i_26_23,i_26_24,i_26_25,i_26_26,i_26_27,i_26_28,i_26_29:integer;
  
 
i_27_1,i_27_2,i_27_3,i_27_4,i_27_5,i_27_6,i_27_7,i_27_8,i_27_9,i_27_10,i_27_11,i_27_12,i_27_13,i_27_14,i_27_15,i_27_16,i_27_17,i_27_18,i_27_19,i_27_20,i_27_21,i_27_22,i_27_23,i_27_24,i_27_25,i_27_26,i_27_27,i_27_28,i_27_29:integer;
  
 
i_28_1,i_28_2,i_28_3,i_28_4,i_28_5,i_28_6,i_28_7,i_28_8,i_28_9,i_28_10,i_28_11,i_28_12,i_28_13,i_28_14,i_28_15,i_28_16,i_28_17,i_28_18,i_28_19,i_28_20,i_28_21,i_28_22,i_28_23,i_28_24,i_28_25,i_28_26,i_28_27,i_28_28,i_28_29:integer;
  
x_1,x_2,x_3,x_4,x_5,x_6,x_7,x_8,x_9,x_10,x_11,x_12,x_13,x_14,x_15,x_16,x_17,x_18,x_19,x_20,x_21,x_22,x_23,x_24,x_25,x_26,x_27,x_28,x_29:integer;
  
 
x_1_1,x_1_2,x_1_3,x_1_4,x_1_5,x_1_6,x_1_7,x_1_8,x_1_9,x_1_10,x_1_11,x_1_12,x_1_13,x_1_14,x_1_15,x_1_16,x_1_17,x_1_18,x_1_19,x_1_20,x_1_21,x_1_22,x_1_23,x_1_24,x_1_25,x_1_26,x_1_27,x_1_28,x_1_29:integer;
  
 
x_2_1,x_2_2,x_2_3,x_2_4,x_2_5,x_2_6,x_2_7,x_2_8,x_2_9,x_2_10,x_2_11,x_2_12,x_2_13,x_2_14,x_2_15,x_2_16,x_2_17,x_2_18,x_2_19,x_2_20,x_2_21,x_2_22,x_2_23,x_2_24,x_2_25,x_2_26,x_2_27,x_2_28,x_2_29:integer;
  
 
x_3_1,x_3_2,x_3_3,x_3_4,x_3_5,x_3_6,x_3_7,x_3_8,x_3_9,x_3_10,x_3_11,x_3_12,x_3_13,x_3_14,x_3_15,x_3_16,x_3_17,x_3_18,x_3_19,x_3_20,x_3_21,x_3_22,x_3_23,x_3_24,x_3_25,x_3_26,x_3_27,x_3_28,x_3_29:integer;
  
 
x_4_1,x_4_2,x_4_3,x_4_4,x_4_5,x_4_6,x_4_7,x_4_8,x_4_9,x_4_10,x_4_11,x_4_12,x_4_13,x_4_14,x_4_15,x_4_16,x_4_17,x_4_18,x_4_19,x_4_20,x_4_21,x_4_22,x_4_23,x_4_24,x_4_25,x_4_26,x_4_27,x_4_28,x_4_29:integer;
  
 
x_5_1,x_5_2,x_5_3,x_5_4,x_5_5,x_5_6,x_5_7,x_5_8,x_5_9,x_5_10,x_5_11,x_5_12,x_5_13,x_5_14,x_5_15,x_5_16,x_5_17,x_5_18,x_5_19,x_5_20,x_5_21,x_5_22,x_5_23,x_5_24,x_5_25,x_5_26,x_5_27,x_5_28,x_5_29:integer;
  
 
x_6_1,x_6_2,x_6_3,x_6_4,x_6_5,x_6_6,x_6_7,x_6_8,x_6_9,x_6_10,x_6_11,x_6_12,x_6_13,x_6_14,x_6_15,x_6_16,x_6_17,x_6_18,x_6_19,x_6_20,x_6_21,x_6_22,x_6_23,x_6_24,x_6_25,x_6_26,x_6_27,x_6_28,x_6_29:integer;
  
 
x_7_1,x_7_2,x_7_3,x_7_4,x_7_5,x_7_6,x_7_7,x_7_8,x_7_9,x_7_10,x_7_11,x_7_12,x_7_13,x_7_14,x_7_15,x_7_16,x_7_17,x_7_18,x_7_19,x_7_20,x_7_21,x_7_22,x_7_23,x_7_24,x_7_25,x_7_26,x_7_27,x_7_28,x_7_29:integer;
  
 
x_8_1,x_8_2,x_8_3,x_8_4,x_8_5,x_8_6,x_8_7,x_8_8,x_8_9,x_8_10,x_8_11,x_8_12,x_8_13,x_8_14,x_8_15,x_8_16,x_8_17,x_8_18,x_8_19,x_8_20,x_8_21,x_8_22,x_8_23,x_8_24,x_8_25,x_8_26,x_8_27,x_8_28,x_8_29:integer;
  
 
x_9_1,x_9_2,x_9_3,x_9_4,x_9_5,x_9_6,x_9_7,x_9_8,x_9_9,x_9_10,x_9_11,x_9_12,x_9_13,x_9_14,x_9_15,x_9_16,x_9_17,x_9_18,x_9_19,x_9_20,x_9_21,x_9_22,x_9_23,x_9_24,x_9_25,x_9_26,x_9_27,x_9_28,x_9_29:integer;
  
 
x_10_1,x_10_2,x_10_3,x_10_4,x_10_5,x_10_6,x_10_7,x_10_8,x_10_9,x_10_10,x_10_11,x_10_12,x_10_13,x_10_14,x_10_15,x_10_16,x_10_17,x_10_18,x_10_19,x_10_20,x_10_21,x_10_22,x_10_23,x_10_24,x_10_25,x_10_26,x_10_27,x_10_28,x_10_29:integer;
  
 
x_11_1,x_11_2,x_11_3,x_11_4,x_11_5,x_11_6,x_11_7,x_11_8,x_11_9,x_11_10,x_11_11,x_11_12,x_11_13,x_11_14,x_11_15,x_11_16,x_11_17,x_11_18,x_11_19,x_11_20,x_11_21,x_11_22,x_11_23,x_11_24,x_11_25,x_11_26,x_11_27,x_11_28,x_11_29:integer;
  
 
x_12_1,x_12_2,x_12_3,x_12_4,x_12_5,x_12_6,x_12_7,x_12_8,x_12_9,x_12_10,x_12_11,x_12_12,x_12_13,x_12_14,x_12_15,x_12_16,x_12_17,x_12_18,x_12_19,x_12_20,x_12_21,x_12_22,x_12_23,x_12_24,x_12_25,x_12_26,x_12_27,x_12_28,x_12_29:integer;
  
 
x_13_1,x_13_2,x_13_3,x_13_4,x_13_5,x_13_6,x_13_7,x_13_8,x_13_9,x_13_10,x_13_11,x_13_12,x_13_13,x_13_14,x_13_15,x_13_16,x_13_17,x_13_18,x_13_19,x_13_20,x_13_21,x_13_22,x_13_23,x_13_24,x_13_25,x_13_26,x_13_27,x_13_28,x_13_29:integer;
  
 
x_14_1,x_14_2,x_14_3,x_14_4,x_14_5,x_14_6,x_14_7,x_14_8,x_14_9,x_14_10,x_14_11,x_14_12,x_14_13,x_14_14,x_14_15,x_14_16,x_14_17,x_14_18,x_14_19,x_14_20,x_14_21,x_14_22,x_14_23,x_14_24,x_14_25,x_14_26,x_14_27,x_14_28,x_14_29:integer;
  
 
x_15_1,x_15_2,x_15_3,x_15_4,x_15_5,x_15_6,x_15_7,x_15_8,x_15_9,x_15_10,x_15_11,x_15_12,x_15_13,x_15_14,x_15_15,x_15_16,x_15_17,x_15_18,x_15_19,x_15_20,x_15_21,x_15_22,x_15_23,x_15_24,x_15_25,x_15_26,x_15_27,x_15_28,x_15_29:integer;
  
 
x_16_1,x_16_2,x_16_3,x_16_4,x_16_5,x_16_6,x_16_7,x_16_8,x_16_9,x_16_10,x_16_11,x_16_12,x_16_13,x_16_14,x_16_15,x_16_16,x_16_17,x_16_18,x_16_19,x_16_20,x_16_21,x_16_22,x_16_23,x_16_24,x_16_25,x_16_26,x_16_27,x_16_28,x_16_29:integer;
  
 
x_17_1,x_17_2,x_17_3,x_17_4,x_17_5,x_17_6,x_17_7,x_17_8,x_17_9,x_17_10,x_17_11,x_17_12,x_17_13,x_17_14,x_17_15,x_17_16,x_17_17,x_17_18,x_17_19,x_17_20,x_17_21,x_17_22,x_17_23,x_17_24,x_17_25,x_17_26,x_17_27,x_17_28,x_17_29:integer;
  
 
x_18_1,x_18_2,x_18_3,x_18_4,x_18_5,x_18_6,x_18_7,x_18_8,x_18_9,x_18_10,x_18_11,x_18_12,x_18_13,x_18_14,x_18_15,x_18_16,x_18_17,x_18_18,x_18_19,x_18_20,x_18_21,x_18_22,x_18_23,x_18_24,x_18_25,x_18_26,x_18_27,x_18_28,x_18_29:integer;
  
 
x_19_1,x_19_2,x_19_3,x_19_4,x_19_5,x_19_6,x_19_7,x_19_8,x_19_9,x_19_10,x_19_11,x_19_12,x_19_13,x_19_14,x_19_15,x_19_16,x_19_17,x_19_18,x_19_19,x_19_20,x_19_21,x_19_22,x_19_23,x_19_24,x_19_25,x_19_26,x_19_27,x_19_28,x_19_29:integer;
  
 
x_20_1,x_20_2,x_20_3,x_20_4,x_20_5,x_20_6,x_20_7,x_20_8,x_20_9,x_20_10,x_20_11,x_20_12,x_20_13,x_20_14,x_20_15,x_20_16,x_20_17,x_20_18,x_20_19,x_20_20,x_20_21,x_20_22,x_20_23,x_20_24,x_20_25,x_20_26,x_20_27,x_20_28,x_20_29:integer;
  
 
x_21_1,x_21_2,x_21_3,x_21_4,x_21_5,x_21_6,x_21_7,x_21_8,x_21_9,x_21_10,x_21_11,x_21_12,x_21_13,x_21_14,x_21_15,x_21_16,x_21_17,x_21_18,x_21_19,x_21_20,x_21_21,x_21_22,x_21_23,x_21_24,x_21_25,x_21_26,x_21_27,x_21_28,x_21_29:integer;
  
 
x_22_1,x_22_2,x_22_3,x_22_4,x_22_5,x_22_6,x_22_7,x_22_8,x_22_9,x_22_10,x_22_11,x_22_12,x_22_13,x_22_14,x_22_15,x_22_16,x_22_17,x_22_18,x_22_19,x_22_20,x_22_21,x_22_22,x_22_23,x_22_24,x_22_25,x_22_26,x_22_27,x_22_28,x_22_29:integer;
  
 
x_23_1,x_23_2,x_23_3,x_23_4,x_23_5,x_23_6,x_23_7,x_23_8,x_23_9,x_23_10,x_23_11,x_23_12,x_23_13,x_23_14,x_23_15,x_23_16,x_23_17,x_23_18,x_23_19,x_23_20,x_23_21,x_23_22,x_23_23,x_23_24,x_23_25,x_23_26,x_23_27,x_23_28,x_23_29:integer;
  
 
x_24_1,x_24_2,x_24_3,x_24_4,x_24_5,x_24_6,x_24_7,x_24_8,x_24_9,x_24_10,x_24_11,x_24_12,x_24_13,x_24_14,x_24_15,x_24_16,x_24_17,x_24_18,x_24_19,x_24_20,x_24_21,x_24_22,x_24_23,x_24_24,x_24_25,x_24_26,x_24_27,x_24_28,x_24_29:integer;
  
 
x_25_1,x_25_2,x_25_3,x_25_4,x_25_5,x_25_6,x_25_7,x_25_8,x_25_9,x_25_10,x_25_11,x_25_12,x_25_13,x_25_14,x_25_15,x_25_16,x_25_17,x_25_18,x_25_19,x_25_20,x_25_21,x_25_22,x_25_23,x_25_24,x_25_25,x_25_26,x_25_27,x_25_28,x_25_29:integer;
  
 
x_26_1,x_26_2,x_26_3,x_26_4,x_26_5,x_26_6,x_26_7,x_26_8,x_26_9,x_26_10,x_26_11,x_26_12,x_26_13,x_26_14,x_26_15,x_26_16,x_26_17,x_26_18,x_26_19,x_26_20,x_26_21,x_26_22,x_26_23,x_26_24,x_26_25,x_26_26,x_26_27,x_26_28,x_26_29:integer;
  
 
x_27_1,x_27_2,x_27_3,x_27_4,x_27_5,x_27_6,x_27_7,x_27_8,x_27_9,x_27_10,x_27_11,x_27_12,x_27_13,x_27_14,x_27_15,x_27_16,x_27_17,x_27_18,x_27_19,x_27_20,x_27_21,x_27_22,x_27_23,x_27_24,x_27_25,x_27_26,x_27_27,x_27_28,x_27_29:integer;
  
 
x_28_1,x_28_2,x_28_3,x_28_4,x_28_5,x_28_6,x_28_7,x_28_8,x_28_9,x_28_10,x_28_11,x_28_12,x_28_13,x_28_14,x_28_15,x_28_16,x_28_17,x_28_18,x_28_19,x_28_20,x_28_21,x_28_22,x_28_23,x_28_24,x_28_25,x_28_26,x_28_27,x_28_28,x_28_29:integer;
k: array [1..29] of integer;
k1: array [1..29] of integer;
k2: array [1..29] of integer;
k3: array [1..29] of integer;
k4: array [1..29] of integer;
k5: array [1..29] of integer;
k6: array [1..29] of integer;
k7: array [1..29] of integer;
k8: array [1..29] of integer;
k9: array [1..29] of integer;
k10: array [1..29] of integer;
k11: array [1..29] of integer;
k12: array [1..29] of integer;
k13: array [1..29] of integer;
k14: array [1..29] of integer;
k15: array [1..29] of integer;
k16: array [1..29] of integer;
k17: array [1..29] of integer;
k18: array [1..29] of integer;
k19: array [1..29] of integer;
k21: array [1..29] of integer;
k22: array [1..29] of integer;
k23: array [1..29] of integer;
k24: array [1..29] of integer;
k25: array [1..29] of integer;
k26: array [1..29] of integer;
k27: array [1..29] of integer;
k28: array [1..29] of integer;
q,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,q12,q13,q14,q15,q16,q17,q18,q19,q20,q21,q22,q23,q24,q25,q26,q27,q28:integer;
j,j1,j2,j3,j4,j5,j6,j7,j8,j9,j10,j11,j12,j13,j14,j15,j16,j17,j18,j19,j20,j21,j22,j23,j24,j25,j26,j27,j28:integer;
s1,s2:string;
begin
  mesta:=StrToInt(SpinEdit1.Text)+StrToInt(SpinEdit2.Text);
  if mesta>ADOQuery1.Fields[5].AsInteger
  then messageDlg('Места на это время закончились, либо введено больше мест, чем свободных', mtError, [mbOK],0)
  else begin
       Form6.Show;
       case mesta of
       1:     begin
              Label20.Caption:='Выбрано место: ';
              Form6.Label1.Caption:='Выберите '+IntToStr(mesta)+' место';
              end;
       2..4:  begin
              Label20.Caption:='Выбраны места: ';
              Form6.Label1.Caption:='Выберите '+IntToStr(mesta)+' места';
              end;
       5..45: begin
              Label20.Caption:='Выбраны места: ';
              Form6.Label1.Caption:='Выберите '+IntToStr(mesta)+' мест';
              end;
       end;
       Form6.Image1.Visible:=true;
       if ADOQuery1.Fields[4].AsInteger=29
       then begin
for q:=1 to 29 do
begin
  if q=1
  then begin
  i_1:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[0];
  while i_1<1 do
  begin
        while x_1>0 do
    begin
      x_1:=pos(s2,s1);
      if x_1>0 then
      begin
        //inc(k[1]);
        k[1]:=1;
        delete(s1,1,x_1);
      end;
    end;
    inc(i_1);
    end;
  end
  else
  if q=2
  then begin
  i_2:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[1];
  while i_2<1 do
  begin
        while x_2>0 do
    begin
      x_2:=pos(s2,s1);
      if x_2>0 then
      begin
        //inc(k[1]);
        k[2]:=1;
        delete(s1,1,x_2);
      end;
    end;
    inc(i_2);
    end;
  end
  else
  if q=3
  then begin
  i_3:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[2];
  while i_3<1 do
  begin
        while x_3>0 do
    begin
      x_3:=pos(s2,s1);
      if x_3>0 then
      begin
        //inc(k[1]);
        k[3]:=1;
        delete(s1,1,x_3);
      end;
    end;
    inc(i_3);
    end;
  end
  else
  if q=4
  then begin
  i_4:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[3];
  while i_4<1 do
  begin
        while x_4>0 do
    begin
      x_4:=pos(s2,s1);
      if x_4>0 then
      begin
        //inc(k[1]);
        k[4]:=1;
        delete(s1,1,x_4);
      end;
    end;
    inc(i_4);
    end;
  end
  else
  if q=5
  then begin
  i_5:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[4];
  while i_5<1 do
  begin
        while x_5>0 do
    begin
      x_5:=pos(s2,s1);
      if x_5>0 then
      begin
        //inc(k[1]);
        k[5]:=1;
        delete(s1,1,x_5);
      end;
    end;
    inc(i_5);
    end;
  end
  else
  if q=6
  then begin
  i_6:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[5];
  while i_6<1 do
  begin
        while x_6>0 do
    begin
      x_6:=pos(s2,s1);
      if x_6>0 then
      begin
        //inc(k[1]);
        k[6]:=1;
        delete(s1,1,x_6);
      end;
    end;
    inc(i_6);
    end;
  end
  else
  if q=7
  then begin
  i_7:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[6];
  while i_7<1 do
  begin
        while x_7>0 do
    begin
      x_7:=pos(s2,s1);
      if x_7>0 then
      begin
        //inc(k[1]);
        k[7]:=1;
        delete(s1,1,x_7);
      end;
    end;
    inc(i_7);
    end;
  end
  else
  if q=8
  then begin
  i_8:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[7];
  while i_8<1 do
  begin
        while x_8>0 do
    begin
      x_8:=pos(s2,s1);
      if x_8>0 then
      begin
        //inc(k[1]);
        k[8]:=1;
        delete(s1,1,x_8);
      end;
    end;
    inc(i_8);
    end;
  end
  else
  if q=9
  then begin
  i_9:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[8];
  while i_9<1 do
  begin
        while x_9>0 do
    begin
      x_9:=pos(s2,s1);
      if x_9>0 then
      begin
        //inc(k[1]);
        k[9]:=1;
        delete(s1,1,x_9);
      end;
    end;
    inc(i_9);
    end;
  end
  else
  if q=10
  then begin
  i_10:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[9];
  while i_10<1 do
  begin
        while x_10>0 do
    begin
      x_10:=pos(s2,s1);
      if x_10>0 then
      begin
        //inc(k[1]);
        k[10]:=1;
        delete(s1,1,x_10);
      end;
    end;
    inc(i_10);
    end;
  end
  else
  if q=11
  then begin
  i_11:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[10];
  while i_11<1 do
  begin
        while x_11>0 do
    begin
      x_11:=pos(s2,s1);
      if x_11>0 then
      begin
        //inc(k[1]);
        k[11]:=1;
        delete(s1,1,x_11);
      end;
    end;
    inc(i_11);
    end;
  end
  else
  if q=12
  then begin
  i_12:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[11];
  while i_12<1 do
  begin
        while x_12>0 do
    begin
      x_12:=pos(s2,s1);
      if x_12>0 then
      begin
        //inc(k[1]);
        k[12]:=1;
        delete(s1,1,x_12);
      end;
    end;
    inc(i_12);
    end;
  end
  else
  if q=13
  then begin
  i_13:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[12];
  while i_13<1 do
  begin
        while x_13>0 do
    begin
      x_13:=pos(s2,s1);
      if x_13>0 then
      begin
        //inc(k[1]);
        k[13]:=1;
        delete(s1,1,x_13);
      end;
    end;
    inc(i_13);
    end;
  end
  else
  if q=14
  then begin
  i_14:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[13];
  while i_14<1 do
  begin
        while x_14>0 do
    begin
      x_14:=pos(s2,s1);
      if x_14>0 then
      begin
        //inc(k[1]);
        k[14]:=1;
        delete(s1,1,x_14);
      end;
    end;
    inc(i_14);
    end;
  end
  else
  if q=15
  then begin
  i_15:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[14];
  while i_15<1 do
  begin
        while x_15>0 do
    begin
      x_15:=pos(s2,s1);
      if x_15>0 then
      begin
        //inc(k[1]);
        k[15]:=1;
        delete(s1,1,x_15);
      end;
    end;
    inc(i_15);
    end;
  end
  else
  if q=16
  then begin
  i_16:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[15];
  while i_16<1 do
  begin
        while x_16>0 do
    begin
      x_16:=pos(s2,s1);
      if x_16>0 then
      begin
        //inc(k[1]);
        k[16]:=1;
        delete(s1,1,x_16);
      end;
    end;
    inc(i_16);
    end;
  end
  else
  if q=17
  then begin
  i_17:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[16];
  while i_17<1 do
  begin
        while x_17>0 do
    begin
      x_17:=pos(s2,s1);
      if x_17>0 then
      begin
        //inc(k[1]);
        k[17]:=1;
        delete(s1,1,x_17);
      end;
    end;
    inc(i_17);
    end;
  end
  else
  if q=18
  then begin
  i_18:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[17];
  while i_18<1 do
  begin
        while x_18>0 do
    begin
      x_18:=pos(s2,s1);
      if x_18>0 then
      begin
        //inc(k[1]);
        k[18]:=1;
        delete(s1,1,x_18);
      end;
    end;
    inc(i_18);
    end;
  end
  else
  if q=19
  then begin
  i_19:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[18];
  while i_19<1 do
  begin
        while x_19>0 do
    begin
      x_19:=pos(s2,s1);
      if x_19>0 then
      begin
        //inc(k[1]);
        k[19]:=1;
        delete(s1,19,x_1);
    end;
    inc(i_19);
    end;
  end;
  end
  else
  if q=20
  then begin
  i_20:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[19];
  while i_20<1 do
  begin
        while x_20>0 do
    begin
      x_20:=pos(s2,s1);
      if x_20>0 then
      begin
        //inc(k[1]);
        k[20]:=1;
        delete(s1,1,x_20);
      end;
    end;
    inc(i_20);
    end;
  end
  else
  if q=21
  then begin
  i_21:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[20];
  while i_21<1 do
  begin
        while x_21>0 do
    begin
      x_21:=pos(s2,s1);
      if x_21>0 then
      begin
        //inc(k[1]);
        k[21]:=1;
        delete(s1,1,x_21);
      end;
    end;
    inc(i_21);
    end;
  end
  else
  if q=22
  then begin
  i_22:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[21];
  while i_22<1 do
  begin
        while x_22>0 do
    begin
      x_22:=pos(s2,s1);
      if x_22>0 then
      begin
        //inc(k[1]);
        k[22]:=1;
        delete(s1,1,x_22);
      end;
    end;
    inc(i_22);
    end;
  end
  else
  if q=23
  then begin
  i_23:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[22];
  while i_23<1 do
  begin
        while x_23>0 do
    begin
      x_23:=pos(s2,s1);
      if x_23>0 then
      begin
        //inc(k[1]);
        k[23]:=1;
        delete(s1,1,x_23);
      end;
    end;
    inc(i_23);
    end;
  end
  else
  if q=24
  then begin
  i_24:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[23];
  while i_24<1 do
  begin
        while x_24>0 do
    begin
      x_24:=pos(s2,s1);
      if x_24>0 then
      begin
 
        k[24]:=1;
        delete(s1,1,x_24);
        end
      end;
    end;
    inc(i_24);
    end
  else
  if q=25
  then begin
  i_25:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[24];
  while i_25<1 do
  begin
        while x_25>0 do
    begin
      x_25:=pos(s2,s1);
      if x_25>0 then
      begin
        //inc(k[1]);
        k[25]:=1;
        delete(s1,1,x_25);
      end;
    end;
    inc(i_25);
    end;
  end
  else
  if q=26
  then begin
  i_26:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[25];
  while i_26<1 do
  begin
        while x_26>0 do
    begin
      x_26:=pos(s2,s1);
      if x_26>0 then
      begin
        //inc(k[1]);
        k[26]:=1;
        delete(s1,1,x_26);
      end;
    end;
    inc(i_26);
    end;
  end
  else
  if q=27
  then begin
  i_27:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[26];
  while i_27<1 do
  begin
        while x_27>0 do
    begin
      x_27:=pos(s2,s1);
      if x_27>0 then
      begin
        //inc(k[1]);
        k[27]:=1;
        delete(s1,1,x_27);
      end;
    end;
    inc(i_27);
    end;
  end
  else
  if q=28
  then begin
  i_28:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[27];
  while i_28<1 do
  begin
        while x_28>0 do
    begin
      x_28:=pos(s2,s1);
      if x_28>0 then
      begin
        //inc(k[1]);
        k[28]:=1;
        delete(s1,1,x_28);
      end;
    end;
    inc(i_28);
    end;
  end
  else
  if q=29
  then begin
  i_29:=0;
  s2:='1 ';
  s1:=ComboBox1.Items.Strings[28];
  while i_29<1 do
  begin
        while x_29>0 do
    begin
      x_29:=pos(s2,s1);
      if x_29>0 then
      begin
        //inc(k[1]);
        k[29]:=1;
        delete(s1,1,x_29);
      end;
    end;
    inc(i_29);
    end;
  end;
end;
for j:=1 to 29 do
  if k[j]=1
  then begin
       Image4.Visible:=false;
       Image62.Visible:=true;
       end;
end;
end;
end;