вычислить постфиксное выражение, помогите решить задачу! Опции

[vold]

Необходимо вычислить постфиксное выражение.

вот моя тщетная попытка это решить:

Код

  
var c:char;
    c1,c2:integer;
    c3:real;
begin
Writeln('vvedite postfiksnoe virazhenie');
read(c);
c1:=ord(c)-ord('0');
read(c);
c2:=ord(c)-ord('0');
case c of
'-': c3:=c1-c2;
'*': c3:=c1*c2;
'/': c3:=c1/c2;
'+': c3:=c1+c2;
end;
while (not eoln) do
begin
  read(c);
  c1:= ord(c)-ord('0');
  case c of
'-': c3:=c3-c1;
'*': c3:=c3*c1;
'/': c3:=c3/c1;
'+': c3:=c3+c1;
end;
writeln(c3);
end.

я понял, что необходимо считывать по одному элементу и если встречается цифра запоминать, если снова цифра - запомнить, если знак, то произвести вычисления между этими числами.
я не знаю где я ошибся, т.к. опыта написания программ у меня ооочень мало, подскажите где я совершил ошибку и как следует исправить.

[мисс_граффити]

выражение имеет вид цифрацифразнак? то есть двузначные числа не могут фигурировать?

еще не поняла, почему разбор несколько раз написан. может вводиться несколько выражений сразу?
ну и наверное перед case c стоит это с прочитать...

[vold]

Всё, я сделал, оказалось все намного проще!

Код

program laba3;
var c:char;
    c1,c2:integer;
    c3:real;
begin
Writeln('vvedite postfiksnoe virazhenie');
read(c);
c1:=ord(c)-ord('0');
read(c);
c2:=ord(c)-ord('0');
read(c);
case c of
'-': c3:=c1-c2;
'*': c3:=c1*c2;
'/': c3:=c1/c2;
'+': c3:=c1+c2;
end;
read(c);
while c<>'.'{(not eoln)} do
begin
  c1:= ord(c)-ord('0');
  read(c);
  case c of
'-': c3:=c3-c1;
'*': c3:=c3*c1;
'/': c3:=c3/c1;
'+': c3:=c3+c1;
  end;
   read(c);
end;
writeln(c3);
readln;
end.