Найти в первом стеке максимальное число, а во втором - наименьшее число

Uses crt;
Const n = 10;
Type
  item = integer;
  stack = array[1..n] of item;
 
Var
  a,b: stack;
  max,min,x: item;
  tosa, tosb,i: byte;
  key: char;
 
Procedure Push(var s: stack; var tos: byte; x: item);
  begin
    If tos = n+1 then writeln('Стек переполнен')
      else begin
        s[tos]:=x;
        Inc(tos)
      end
  end;
 
Function Pop(var s: stack; var tos: byte): item;
  begin
    If tos = 1 then writeln('Стек пуст')
      else begin
        Dec(tos);
        Pop:=s[tos]
      end
  end;
 
Begin
  tosa:=1;
  tosb:=1;
  Clrscr;
  Writeln('1 - Добавить в 1 стек');
  Writeln('2 - Добавить во 2 стек');
  Writeln('3 - Взять из 1 стека');
  Writeln('4 - Взять из 2 стека');
  Writeln('0 - Найти max и min');
  While key<>'0' do
    begin
      Readln(key);
      Case key of
        '1': begin
          Write('Введите элемент: ');
          Readln(x);
          Push(a,tosa,x)
          end;
        '2': begin
          Write('Введите элемент: ');
          Readln(x);
          Push(b,tosb,x)
          end;
        '3': Writeln('Верхушка 1 стека: ',Pop(a,tosa));
        '4': Writeln('Верхушка 2 стека: ',Pop(b,tosb))
        end
    end;
  max:=Pop(a,tosa);
  min:=Pop(b,tosb);
  For i:=1 to 9 do
    begin
      x:=Pop(a,tosa);
      If x > max then max:=x;
      x:=Pop(b,tosb);
      If x < min then min:=x
    end;
  Writeln('max 1 стека: ',max,'    min 2 стека: ',min);
  Readkey
End.