Найти ошибку в коде, на языке паскаль

Задача: Сформировать стек из целых чисел. Используя операции работы со стеком, удалить из него все числа, равные минимальному. Вывести результат.
Ошибку выдает в 33 строке кода. Как ее исправить?



program OPZ;
type ptype=^p;
p = record
next:ptype;
info:integer;
end;

var t1,t2:ptype; minSTEC:ptype;


Procedure Add_Stec(var p:ptype; ch:integer) ;
var pr: ptype;
begin
new(pr);
pr^.next:=p;
pr^.info:=ch;
p:=pr;
end;


Procedure Del_Stec(var p:ptype;var ch:integer) ;
var pr:ptype;
begin
ch:=p^.info ;
pr:= p ;
p:= p^.next;
dispose(pr);
end;


Procedure Print(p:ptype);
begin
minSTEC:=p^.info;
while p<> nil do
begin
if p^.info> p^.next
then minSTEC:=p^.next;
end;
end;
var sim:integer;
begin
t1:=Nil;
while not eoln do
begin
read(sim);
Add_Stec(t1,sim);
end;
Print(t1);
end.