How do you create a stack in Turbo Pascal?

In Turbo Pascal, you can create a stack by defining a dynamic array or a record that holds the stack elements along with a pointer or an index to track the top of the stack. You would typically create procedures for basic stack operations like Push to add an element, Pop to remove the top element, and IsEmpty to check if the stack is empty. Here's a simple example:

<code class="language-pascal">const
MaxSize = 100; type Stack = record items: array[1..MaxSize] of Integer; top: Integer; end;
procedure Initialize(var s: Stack); begin s.top := 0; end;
procedure Push(var s: Stack; value: Integer); begin if s.top < MaxSize then begin s.top := s.top + 1; s.items[s.top] := value; end; end;
function Pop(var s: Stack): Integer; begin if s.top > 0 then begin Pop := s.items[s.top]; s.top := s.top - 1; end; end;
function IsEmpty(s: Stack): Boolean; begin IsEmpty := s.top = 0; end;
</code>

This code initializes a stack, allows pushing and popping of elements, and includes a function to check if the stack is empty.