Сравнение содержимого стеков после сортировки

program Project1;
 
const
  //Глубина стека. Т. е. максимальное количество элементов,
  //которое может поместиться в стек.
  StSizeMax = 30;
 
type
  //Тип, описывающий стек.
  TStack = record
    //Указатель вершины стека. Это индекс последнего добавленного элемента.
    Pnt : Integer;
    //Контейнер данных стека.
    Data : array[1..StSizeMax] of Integer;
  end;
 
//Добавить в стек элемент.
function StackPush(var aStack : TStack; const aNum : Integer) : Boolean;
begin
  StackPush := False;
  with aStack do begin
    if Pnt < High(Data) then begin
      //Индекс добавляемого элемента.
      Inc(Pnt);
      //Добавляем элемент в массив (т. е. в стек).
      Data[Pnt] := aNum;
      StackPush := True;
    end;
  end;
end;
 
//Взять из стека элемент.
function StackPop(var aStack : TStack; var aNum : Integer) : Boolean;
begin
  StackPop := False;
  with aStack do begin
    if Pnt >= Low(Data) then begin
      aNum := Data[Pnt];
      Dec(Pnt);
      StackPop := True;
    end;
  end;
end;
 
const
  //Будем работать с M элементами стеков.
  M = 10;
 
var
  St1, St2,St3,St4 : TStack;
  i, j, k, Num1, Num2,Num3,Num4 : Integer;
  F : Boolean;
begin
  St1.Pnt := 0;
  St2.Pnt := 0;
  Randomize;
  for i := 1 to M do StackPush(St1, Random(20)); //StackPush(St1, i);
  Writeln('Содержимое первого стека:');
  while StackPop(St1, Num1) do begin
    StackPush(St2, Num1);
    Write(Num1:4);
  end;
  while StackPop(St2, Num1) do StackPush(St1, Num1);
  //Метод сортировки - пузырьковая.
  j := M;
  repeat
    F := False;
    Dec(j);
    StackPop(St1, Num1);
    for k := 1 to j do begin
      StackPop(St1, Num2);
      if Num1 <= Num2 then begin
        StackPush(St2, Num1);
        Num1 := Num2;
      end else begin
        StackPush(St2, Num2);
        F := True;
      end;
    end;
    StackPush(St1, Num1);
    while StackPop(St2, Num1) do StackPush(St1, Num1);
  until not F;
  writeln;
  Write('Содержимое 1 стека после сортировки:');
  writeln;
  while StackPop(St1, Num1) do 
  Write(Num1:4);
begin
  St3.Pnt := 0;
  St4.Pnt := 0;
  for i := 1 to M do StackPush(St3, Random(20)); //StackPush(St1, i);
  writeln;
  Writeln('Содержимое 2 стека:');
  while StackPop(St3, Num3) do begin
    StackPush(St4, Num3);
    Write(Num3:4);
  end;
  while StackPop(St4, Num3) do StackPush(St3, Num3);
  //Метод сортировки - пузырьковая.
  j := M;
  repeat
    F := False;
    Dec(j);
    StackPop(St3, Num3);
    for k := 1 to j do begin
      StackPop(St3, Num4);
      if Num3<= Num4 then begin
        StackPush(St4, Num3);
        Num3 := Num4;
      end else begin
        StackPush(St4, Num4);
        F := True;
      end;
    end;
    StackPush(St3, Num3);
    while StackPop(St4, Num3) do 
    StackPush(St3, Num3);
  until not F;
  writeln;
  Write('Содержимое 2 стека после сортировки:');
  writeln;
  while StackPop(St3, Num3) do Write(Num3:4);
end;
end.