Pascal Stack

[S1l3nce]

Stack:

      program Saraksts;
      uses crt;
          const MaxSize = 500;
          type Count = 0 .. MaxSize;
              DataType = string;
              KeyType = integer;
              Stdelement = record
              data: DataType;
              key: KeyType
          end;
      {-------------------------------------------------------------------------------}
          NodePointer = ^Node;
              StackInstance = record
                  top: NodePointer;
                  n: Count
              end;
              Stack = ^StackInstance;
       
       
      {-------------------------------------------------------------------------------}
       
              Node = record
                  el: StdElement;
                  next: NodePointer
              end;
      {-------------------------------------------------------------------------------}
      var
          Elem:StdElement;
          S:Stack;
          m:integer;
          created,found:boolean;
          j,x,i:integer;
          c:DataType;
          burts:integer;
          tkey:KeyType;
      label MENU, BEIGAS;


Procedure Push

      procedure Push (var S: Stack; e: StdElement);
       
          var p: NodePointer;
              j:integer;
       
              begin
       
               readln(i);
       
              if not Full(S) then with S^ do
                  begin
                  new(p); p^.el:= e;
                  if Empty(S) then {steks ir tukss}
                      begin top:= p; p^.next:= nil end
                  else {steks nav tukss}
                      begin {izkarto saites}
                  p^.next:= top; top:= p;
       
       
      n:= n + 1
      end;
       
      end;


Procedure Pop

procedure Pop (var S:Stack; var e: StdElement);

var q,p: NodePointer;
begin
if not Empty(S) then with S^ do
begin


e:= top^.el; p:= top; top:= top^.next;

dispose (p); n:= n -1
end;
end;

Вопрос:
1) Как реализовать ввод 10 елементов (random)
2) Kak их вывести



Отрывок с меню

          6: begin
              Push(S,Elem);
              writeln('Jauns elements veiksmigi pievienots sarakstam.');
              writeln;
              writeln('Nospiediet ENTER, lai dotos uz Izvelni.');
              readln;
              readln;
              goto MENU;
              end;

7: begin
        Pop(S,Elem);
        writeln;
        writeln('Nospiediet ENTER, lai dotos uz Izvelni.');
 
        readln;
        readln;
        goto MENU;
        end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.