Стек

[Bizunov]

Всем привет )
Реализовал простенький стек, проверьте его на правильность работы ) Просто, иногда (кажется, после swap'а) она вместо вершины возвращает ноль (((

unit StaticStack;

interface
{ Константы }
const
  StackLen = 128;
{ Типы }
type
  TStack = record
    Data: array[1..StackLen] of integer;
    Ind : integer;
  end;
{ Объявление функций и процедур }
procedure StackPush(var Stack: TStack; Val: integer);
function  StackPop (var Stack: TStack): integer;
procedure StackSwap(var Stack: TStack);
function  StackEmpty(Stack: TStack): boolean;

implementation
{ Стек }
//Добавление в стек
procedure StackPush(var Stack: TStack; Val: integer);
begin
  if (Stack.Ind <> StackLen) then begin
    Inc(Stack.Ind); Stack.Data[Stack.Ind] := Val;
  end;
end;
//Вытвлкивание из стека
function StackPop (var Stack: TStack): integer;
begin
  Result := 0;
  if (Stack.Ind <> 0) then begin
    Result := Stack.Data[Stack.Ind]; Dec(Stack.Ind);
  end;
end;
//Меняем местами вершины
procedure StackSwap(var Stack: TStack);
var
  Buff_1: integer;
  Buff_2: integer;
begin
  Buff_1 := Stack.Data[Stack.Ind];
  Buff_2 := Stack.Data[Stack.Ind-1];
  Stack.Data[Stack.Ind-1] := Buff_1;
  Stack.Data[Stack.Ind] := Buff_2;
end;
//Пуст ли стек?
function StackEmpty(Stack: TStack): boolean;
begin
  Result := (Stack.Ind = 0);
end;

end.

[Bizunov]

Все, не надо ни чего тестить. Стек работает нормально, ошибка была в другом месте.