помогите найти ошибку, стек+модуль Опции

[Shurka]

Помогите найти ошибку. Условие задачи следующее: берешь любое аритметическое выражение в виде postfiks, т.е. если дано а+b,то postfiks будет: ab+. А потом начинаешь по знаку разбирать, если цифра, то лпжишь ее в стек, если знак, то извлекаешь из стека 2 последних цифры, и деелаешь соответствуещее знаку действие. Так вот здесь надо использовать модуль, а вот с этим то как раз и заключается проблема.
Ошибки здесь могут быть самыми тупыми.

Код

program стек;
uses crt;
type infotyyp= integer;
    pinutyyp= ^pinutype;
    pinutyyp= record
              element: infotyyp;
              Tipp: pinutyyp;
              end;
var top: pinutyyp;
   avaldis: string;
   i: integer;
   a,b,c: real;

begin

    readln(avaldis);
    Create(top);
    for i:=1 to length(avaldis) do
        begin
             writeln('Введите выражение в виде postfiks:');
             if avaldis[i] in ['0'..'9'] then
                begin
                     val(avaldis[i],pinutyyp^.element);
                     push(top, element);
                end
             else
                begin
                     pop(top, element);
                     a:=pinutyyp^.element;

                     pop(top, element);
                     b:=pinutyyp^.element;
                     case avaldis[i] of
                          '+': c:=a+b;
                          '-': c:=a-b;
                          '*': c:=a*b;
                          '/': c:=a/b;
                     end;

                end;
        end;
        writeln('Ответ:',c);
        readln;
end.

Сообщение отредактировано: Oleg_Z - 25.05.2004 23:14

[Altair]

Сейчас посмотрю...