Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека - Free Pascal - Ответ 9084293

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;
  // не забываем удалить содержимое s
end.