Не могу найти ошибку в программе. Прошу помощи

[Chaplen89]

прога не идет почему то, не могу ошибку найти. нужно чтобы прога строку в виде обратной польской записи( ну типа 2 3 +) переводила в арифметическое выражение(2 +3).
делала в делфе, в консольном приложении:

program Project1;

{$APPTYPE CONSOLE}


type chain=^elem;
elem=record
data:integer;
next:chain;
end;
var d,v:chain;
ch:string;

procedure writestack(var p:chain; x:integer);
var temp:chain;
begin
new(temp);
temp^.data:=x;
temp^.next:=p;
p:=temp;
end;


function readstack(var p:chain):integer;
var t:chain;
begin
readstack:=p^.data;
t:=p;
p:=p^.next;
dispose(t);
end;


function operation(a,b:integer; e:char):integer;
begin
case e of
'+' :оperation:=b+a;
'-' :оperation:=b-a;
'*'  :оperation:=b*a;
'/'  :оperation:=b div a;
end;
end;

function calculate(p:chain; str:string):integer;
var a,b,i,x,k:integer;
begin
for i:=1 to length(str) do
begin
val(str[i],x,k);
if (k=0) then
writestack(p,k)
else
begin
a:=readstack(p);
b:=readstack(p);
writestack(p, operation(a,b,str[i]));
end;
end;
calculate:=p^.data;
end;

begin

write('Vvedite OPZ:');
readln(ch);
write(calculate(d,ch));

end.

помогите пожалста!