стеки (большой код прилагаеться)

[mishammm]

Сообщение от Son Of Pain

1) Должно быть

procedure add(var top:pitem; el:integer);

2) все же определись, что ты добавляешь: вместо st должно быть top, а вместо znach1 - не понятно что )
3) процедура print пустая, это так задумано?

хорошо вместо st - поставил top , znach1 просто придумал потомучто в процедуре на выходе 2 параметра значит и нужно подставлять 2 глоб. переменных. ну я не знаю что с этим znach делать.
и процедура print да там ошибка - я не знаю какой тип локальной переменной там указать. наверное что то типа этого:

procedure print(stek1:pitem);
begin
    
    p := top;
    while p <> nil do begin
        
       while stek1<>nil do 
  begin   
    Write(stek1^.data, ' '); 
    stek1:=stek1^.next  
  end;
    end;
    writeln;
end;

[mishammm]

я хоть правильно переписал проедуру? отзовитесь плиз кто

[Stilet]

procedure print(stek1:pitem);
begin

  while stek1<>nil do 
  begin   
    Write(stek1^.data, ' '); 
    stek1:=stek1^.next  
  end;

    writeln;
end;

Вот так наверное лучше.

[mishammm]

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

procedure print(stek1:pitem);
begin

  while stek1<>nil do 
  begin   
    Write(stek1^.data, ' '); 
    stek1:=stek1^.next  
  end;

    writeln;
end;

Вот так наверное лучше.

благодарю, знать бы еще какие переменные подставить в процедуру add. точнее какой тип им обьявить