Стеки

function RS(msg : String) : Stack<integer>;
begin
  var n := ReadInteger(msg);
  Result := New Stack<integer>;
  Write('Элементы стека через пробел: '); for var i := 1 to n do Result.Push(ReadInteger);
end;
 
procedure PopPush(var sPop, sPush : Stack<integer>);
begin
  var val := sPop.Pop;
  if val < 0 then sPush.Push(val);
end;
 
begin
  var s1 := RS('Число элементов первого стека:');
  var s2 := RS('Число элементов второго стека:');
  s1.Reverse.Println;
  s2.Reverse.Println;
  
  var(s,first):=(New Stack<integer>,True);
  while s1.Count+s2.Count > 0 do
    begin
      if (s2.Count = 0)or First then          PopPush(s1, s)
      else if (s1.Count = 0)or Not First then PopPush(s2, s);
      First := Not First;
    end;
    
  s.Reverse.Println;
end.

procedure f(var sFrom, sTo : Stack<integer>);
begin
  while (sFrom.Count > 0) and (sFrom.Peek >= 0) do sFrom.Pop;
  if sFrom.Count > 0 then sTo.Push(sFrom.Pop);
end;
 
begin
  var s1 := new Stack<integer>(ReadlnString('Введите элементы первого стека через пробел').ToIntegers.Reverse);
  var s2 := new Stack<integer>(ReadlnString('Введите элементы второго стека через пробел').ToIntegers.Reverse);
  var s := new Stack<integer>;
  
  
  while s1.Count + s2.Count > 0 do
  begin
    f(s1, s);
    f(s2, s);
  end;
  
  s.Println;
end.