Формирование рядов чисел?

[kta87]

Вобщем ситуация такова: Пишу программу для формирования страниц при печати буклетом (книгой). При формировании ряда для принтера поддерживающего 2-ч сторонюю печать все получилось без проблемм (вводим число 8 например)

var
   N, N1, an, a1, i: Integer;
   s: string;
begin
 N:= StrToInt(LabeledEdit1.Text);
 an:= N;
 N1:= Round(N/2);
 a1:= 1;
 s:= FloatToStr(an) + #44 + FloatToStr(a1);
 for i:= 1 to N1-1 do
  begin
    an:= an-1;
    a1:= a1+1;
    if (i mod 2) = 0 then
    begin
     s:= s + #44 + FloatToStr(an) + #44 + FloatToStr(a1);
    end
      else
       s:= s + #44 + FloatToStr(a1) + #44 + FloatToStr(an);
  end;

 i:= i+1;
 RichEdit1.Text:= s;

end;

Получаю ряд, типа:8,1,2,7,6,3,4,5
Но при формировании рядов для принтеров не поддерживающих 2-ч сторонюю печать необходимо разбивка в 2 ряда, и вот с этим я прошу вашей помошь, сам конечно пробовал но не получилось ни чего (первый ряд формировал а вот второй не получается.)
В данном примере ряды должны получиться 8,1,6,3 и 2,7,4,5 соответственно.
П.С. вводимое число должно быть кратное 4.

Тему можно закрывать, решение найдено!

[g101k]

procedure TForm1.Button1Click(Sender: TObject);
var
  n1, n2, i: Integer;
  buf: string;
begin
  n1 := StrToInt(Edit1.Text);
  n2 := 1;
  while n1 > StrToInt(Edit1.Text)/2 do
  begin
    buf := buf + IntToStr(n1)+','+IntToStr(n2) + ',';
    n1 := n1 - 2;
    n2 := n2 + 2;
  end;
  memo1.Lines.Add(buf) ;
  n1 := 2;
  n2 := StrToInt(Edit1.text) - 1;
  buf := '';
  while n1 <= StrToInt(Edit1.Text)/2 do
  begin
    buf := buf + IntToStr(n1)+','+IntToStr(n2) + ',';
    n1 := n1 + 2;
    n2 := n2 - 2;
  end;
  memo1.Lines.Add(buf)
end;

[kta87]

g101k, да ну все на много проще..но за вариант благодарен ))