Стек, найти максимальный элемент в диапазоне, не работает - Delphi - Ответ 12381125

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:integer;
    f1:text;a1,b1: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( VAR top:STACK; a1,b1:real);
Var   {Вспомогательный стек}
x:elementtype;
top2:STACK;
Begin
top2:=nil;
 
while top <> nil do begin
   pop(top,x);
      if (x.ob > a1) and (x.ob < b1)   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;
 
    writeln('|Группа|':8,'Специальность|':14,'Курс|':5,'Кол-во учащихся|':16);
    pokaz_Steka(top);
    
    writeln;
    writeln('|Группа|':8,'Специальность|':14,'Курс|':5,'Кол-во учащихся|':16);
   
    pokaz_Steka(top);
    
    writeln;
    write('Введите курс:');
    readLN(a1);readLN(B1);
    writeln('|Группа|':8,'Специальность|':14,'Курс|':5,'Кол-во учащихся|':16);
    delete1(top,a1,b1);
    pokaz_Steka(top);
    close(f1);
    end.