Стек, удаление в заданном диапазоне удаляет только одно введенное значение

 type
elementtype = record
  mo:string[15];
  pa:real;
  ob:integer;
  
   end;
   
position = ^celltype; {указатель на тип элемента}
 
celltype=record
element:elementtype;
next:position;
    end;
    STACK = ^celltype;
 
var top,top2,top3: STACK;
    s:real;
    f1:text;min1,max1:real;
    x,u:elementtype;
 
    function Empty(top: STACK): boolean;
  {Проверка пустоты стека}
begin
  if top = nil then Empty := true
               else Empty := false;
end;         {  EMPTY }
 
//Заталкивание элемента в стек
procedure Push(x: elementtype; var top: STACK);
{добавление элемента в стек}
Var p: STACK;
begin
  new(p); {создаем новый узел}
  p^.next:= top; {он будет находиться перед вершиной}
  p^.element:= x;
  top:=p;   {Делаем p вершиной стека}
end;        {  PUSH }
 
//Выталкивание элемента из стека
procedure Pop(var top: STACK; var x: elementtype);
Var p: STACK;
begin
  if Empty(top)=False then begin
    p:= top^.next;     {Запоминаем следующтй узел}
    x:=top^.element;   {Вытаскиваем информацию из вершины}
    top:=p;               {Делаем p вершиной}
  end  else
     Writeln('Стек уже пуст')
end;
 
//показ стека
procedure pokaz_Steka(top: STACK);
var
  x:elementtype;  {вспомогательный указатель}
begin
  while top <> nil do begin  {пока не конец стека}
   pop(top,x);
        writeln(x.mo:8, x.pa:14, x.ob:5);   {Вывод значения элемента}
  end;
end;
 
 
 
 
Procedure delete1(min1,max1:real; VAR top:STACK);
Var   {Вспомогательный стек}
x:elementtype;
top2:STACK;
Begin
top2:=nil;
 
while top <> nil do begin
   pop(top,x);
      if x.pa <> min1 then
      begin
      push(x,top2);
      end;
   end;
top:=top2;
end;
 
begin
  top:=nil;
  assign(f1,'laba1.2.txt');
  reset(f1);
while not eof(f1) do
    begin
    readln(f1,u.mo);
    readln(f1,u.pa);
    readln(f1,u.ob);
        push(u,top);
    end;
 
    
    pokaz_Steka(top);
    
    writeln;
     
    pokaz_Steka(top);
    
    writeln;
    write('Введите:');
    read(min1);
  
    delete1(min1,max1,top);
    pokaz_Steka(top);
    close(f1);
    end.