Вычислить значение последовательности

uses
  gStack; //модуль работы со стеком
 
type
  TIntStack = specialize TStack<Integer>; //тип стека для операндов
  TCharStack = specialize TStack<Char>; //тип стека для операторов
 
var
  num: TIntStack; //стек операндов
  ch: TCharStack; //стек операторов
  c: char; //буфер
  a, b, w, r: integer;
 
begin
  num := TIntStack.Create; //создаём стеки операндов и операций
  ch := TCharStack.Create;
  a := 0; //текущий операнд, пока 0
  while not EoLn do //цикл ввода
    begin
      read(c); //читаем символ
      if c in ['0'..'9'] then a := -10 * a + ord(c) and $F //если цифра, то добавляем очередной разряд -10СС к операнду в 10СС
      else //иначе
        begin
          if not ch.IsEmpty and (ch.Top = '*') then //если умножение,
            begin //то сразу умножаем, не дожидаясь ввода всего выражения
              b := num.Top; //первый операнд
              num.Pop; //выталкиваем его из стека
              b *= a; //умножаем на второй операнд
              num.Push(b); //помещаем результат на вершину стека
              ch.Pop //выталкиваем оператор "*" из стека
            end
          else num.Push(a); //иначе помещаем операнд на вершину стека
          a := 0; //готовимся к чтению следующего операнда
          if c <> '.' then ch.Push(c) //если операция, помещаем её на вершину стека
        end
    end;
  readln; //убираем из буфера клавиатуры #13 #10 (код <Enter>)
  while not ch.IsEmpty do //пока стек операторов не пуст, считаем...
    begin
      a := num.Top; //читаем второй операнд
      num.Pop; //выталкиваем его из стека
      b := num.Top; //читаем первый операнд
      num.Pop; //выталкиваем его из стека
      if ch.Top = '+' then b += a else b -= a; //производим соответствующую операцию
      num.Push(b); //размещаем результат на вершину стека
      ch.Pop //выталкиваем код выполненной операции из стека
    end;
  a := 0; //результат в -10СС, пока 0
  b := num.Top; //результат в 10СС
  w := 1; //вес разряда
  repeat //цикл перевода результата из 10СС в -10СС
    r := (10 + b mod -10) mod 10; //вычисляем очередной разряд в -10СС (получение положительного остатка)
    a += r * w; //добавление разряда в результат
    b := (b - r) div -10; //делим число нацело на -10 с учётом положительного остатка
    w *= 10 //вычисляем вес следующего разряда
  until b = 0; //если все разряды результата в 10СС обработаны, то выход из цикла
  write(a); //печатаем результат в -10СС
  num.Free; //уничтожаем стеки операндов и операций
  ch.Free;
  readln //ждём нажатия <Enter> для закрытия программы
end.

v := stack.Top;
stack.Pop;

v := stack.Pop;