Ошибка при двусторонней печати!

[ЛисЁНЫШ]

Подскажите пожалйста!!
Суть вот в чем на форме 2 эдита в один ввожу количество страниц в другой количество брошюр в тетради, после этого выбираю двусторонняя печать и нажимаю рассчитать!
Проблема в том что неправильно рассчитывает!
Вот код программы:

var
list,str,i,a,b,c,d,k:integer;
begin
Memo1.Clear;
str:=strtoint(Edit1.text);
k:=strtoint(Edit2.text);
 
 
// если брошюра или тетрадь
if(RadioButton1.Checked=true) or (RadioButton2.Checked=true)  then
  begin
  // если односторонняя
  if(RadioButton3.Checked=true) then
    begin
    list:=round(str/2);
    for i:=0 to list-1 do
      begin
      a:=i+1;
      b:=str-i;
 
      if(RadioButton2.Checked=true) and ((i mod 8)=0) then memo1.Lines.Add('===================');
      memo1.Lines.Add(inttostr(a)+','+inttostr(b));
 
      end;
    end;
 
    // если двухсторонняя
  if(RadioButton4.Checked=true) then
    begin
list:=str;
str:=str*2;
 
a:=-1;
for i:=1 to list do
begin
a:=a+2;
d:=str-(a-1);
b:=a+1;
c:=d-1;
 
if(RadioButton2.Checked=true) and ((i mod 16)=0) then memo1.Lines.Add('===================');
memo1.Lines.Add(inttostr(d)+','+inttostr(a)+ '|'+inttostr(b)+','+inttostr(c));
end;
 
    end;
  end;
 
end;

]


Например вводим 12 для односторонней
вывод: 1,12 2,11, 3,10 4,9 5,8 6,7
для двусторонней вывод должен выглядеть так:
1, 12 3,10 5,8 6,7 4,9 2,11
Но выводит совсем подругому:
24,1|2,23
22,3|4,21
20,5|6,19
18,7|8,17
16,9|10,15
14,11|12,13
12,13|14,11
10,15|16,9
8,17|18,7
6,19|20,5
4,21|22,3
2,23|24,1