Стек.

[pa6kevi4]

Компилятор выдаёт ошибку 121 - Invalid qualifier.
Перемещает курсор на место, которое я выделил.
В чём дело?

uses crt;

type
  Stack=^TStack;
  TStack=record
   Elem:integer;
   NextElem:Stack
  end;

procedure CreateStack (var StackHead: Stack);
 begin
  StackHead:=nil;
 end;

procedure IncludeInStack(var StackHead: Stack; NewElem: integer);
var ServiceVar:Stack;
 begin
  new(ServiceVar);
  ServiceVar^.Elem:=NewElem;
  ServiceVar^.NextElem:=StackHead;
  StackHead:=ServiceVar
 end;


procedure SelectFromStack(var StackHead: Stack);
var ServiceVar:Stack;
 begin
  if StackHead <> nil then
   begin
    ServiceVar:=StackHead;
    StackHead:=StackHead^.NextElem;
    dispose(ServiceVar)
   end
 end;

procedure print(const pvect : Stack; const pn : integer);
var i : integer;
 begin
    if(pn = 0) then
        writeln('Pechat nevozmozna! Stack pust!')
    else
    begin
        write('Stack imeet vid: ');
        for i := 1 to pn do write(pvect[i]:5);
    end;
 end;


var sh:Stack;
    n:integer;

begin
 clrscr;

 CreateStack(sh);
 IncludeInStack(sh,1);
 IncludeInStack(sh,2);
 IncludeInStack(sh,3);

 for n:=1 to 3 do
  begin
   SelectFromStack(sh);
  end;

  print(sh,2);

 readln;
end.

[Пепел Феникса]

у вас pvect какого типа?не массив же.

[pa6kevi4]

Спасибо. А как тогда вывести стек на экран?

[Utkin]

Сообщение от pa6kevi4

Спасибо. А как тогда вывести стек на экран?

Для этого Вам нужно сделать функцию извлечения значения элемента из стека. И потом пройтись по нему до конца.

ЗЫ. Дались Вам эти указатели? Гораздо меньше всяких болячек на пятой точке при использовании динамического массива в качестве стека. Половина операций проводиться автоматически без Вашего участия.

[NiCola999]

разьве это стек? у стека есть методы push и pop(вставить в начало и удалить с конца) мб они у вас тут просто под другим именем обозначены

[pa6kevi4]

Сообщение от NiCola999

разьве это стек? у стека есть методы push и pop(вставить в начало и удалить с конца) мб они у вас тут просто под другим именем обозначены

ага .