Рекурсия: вычисление значения арифметического выражения, записанного в постфиксной форме

type
  expr = string[254];
 
function poliz(s: expr): expr;
var
  p, errx, erry: integer;
  x, y, t, op: string;
  xn, yn: real;
begin
  if pos(' ', s) in [0, 1]
    then poliz := s
    else begin
      s := s + ' ';
      t := '';
      x := '';
      y := '';
      repeat
        t := t + x;
        x := y;
        y := op;
        p := pos(' ', s);
        op := copy(s, 1, p - 1);
        delete(s, 1, p);
        if (length(op) = 1) and (op[1] in ['+', '-', '*', '/'])
          then begin
            val(x, xn, errx);
            val(y, yn, erry);
            case op[1] of
              '+': xn := xn + yn;
              '-': xn := xn - yn;
              '*': xn := xn * yn;
              '/': xn := xn / yn
            end;
            str(xn, x);
            s := t + x + ' ' + s
          end;
      until (length(op) = 1) and (op[1] in ['+', '-', '*', '/']);
      delete(s, length(s), 1);
      poliz := poliz(s)
    end
end;
 
var
  s: string;
 
begin
  write('Enter expression: ');
  readln(s);
  write('Result: ', poliz(s));
  readln
end.

            s := t + ' ' + x + ' ' + s;
            while pos('  ', s) > 0 then delete(s, pos('  ', s), 1) //в кавычках по два пробела