Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека. Первый должен содержать только п

[zenya1998]

Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать
его в два стека. Первый должен содержать только положительные числа, а второй -
отрицательные. Порядок чисел должен быть сохранен, как в первом стеке

[ZX Spectrum-128]

Использованы процедуры, написанные volvo.

program stack2;

{$mode objfpc}
uses
  crt,math;
type
  pstack = ^tstack;
  tstack =
  record
    info : integer;
    next : pstack;
  end;

procedure push(var s : pstack; value : integer);
var p : pstack;
begin
  new(p);
  p^.next := s;
  p^.info := value;
  s := p;
end;

function pop(var s : pstack) : integer;
var p : pstack;
begin
  result := s^.info;
  p := s;
  s := s^.next;
  dispose(p);
end;

procedure print(s : pstack);
begin
  while s <> nil do
  begin
    write(s^.info:4);
    s := s^.next;
  end;
  writeln;
end;

var
  y, s, t, x : pstack;
  i, n, value : integer;

begin
  randomize;
  s := nil; t := nil; x := nil;  y := nil;
  write('n = '); readln(n);
  for i := 1 to n do
    push(s, randomrange(-50,50));
  writeln('First stack:');
  print(s);

  while s <> nil do
  begin
    value := pop(s);
    if value > 0 then
       push(t, value)
    else
      if value < 0 then
        push(x, value)
  end;

  while t <> nil do
    push(s, pop(t));
  writeln('Second stack (positive):');
  print(s);

  while x <> nil do
    push(y, pop(x));


  writeln('Third stack (negative):');
  print(y);

  readln;
end.