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

[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.

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