задание по динамическим структурам данных

[Exoo]

Помогите пожалуйста понять задание по динамическим структурам данных:

Даны натуральное число n, действительные числа а1,...,аn заканчивающиеся 0. Преобразовать последовательность а1,...,аn, расположив в начале отрицательные члены, а затем - неотрицательные. При этом: порядок тех и других чисел изменяется на обратный

[Exoo]

может когда нибудь кому нибудь пригодится )

Program dinam_v19_stack;
Type
  EXST = ^ST;
  ST = record
       Data : integer;
       Next : EXST;
  End;
Var
  Stack : EXST; {Текущая переменная}
  i,j,n : byte;

  str:array [1..100] of integer;
  c : char;

Procedure writeStack(Var u : EXST; Simvol : integer);
Var
  x : EXST;
Begin
  new(x);
  x^.Data := Simvol;
  x^.Next := u;
  u := x;
End;

Procedure Print1(Var u : EXST);
Begin
  while u <> Nil do
    Begin
    if u^.Data<0 then
       begin
      write (u^.Data,' ');
      u := u^.Next;
      end
    else u := u^.Next;
    End;
  End;
  
  Procedure Print2(Var u : EXST);
Begin
  while u <> Nil do
    Begin
    if u^.Data>0 then
      begin
      write (u^.Data,' ');
      u := u^.Next;
      end
    else u := u^.Next;
    End;
  End;


Begin
  Stack := Nil;
  writeln;
  write('Enter N> ');
  readln(n);
  for i:=1 to n Do begin readln(str[i]); writeStack(Stack, str[i]); end;
  writeln;
  for i:=n downto 1 do Print1(Stack);
  for i:=1 to n Do writeStack(Stack, str[i]);
  for i:=n downto 1 do Print2(Stack);


End.