急！用pascal编辑一个模拟袖珍计算器的加、减、乘、除四则运算

写一个程序，模拟袖珍计算器的加、减、乘、除四则运算 该程序能读入数据；并按算式计算出结果。如当你在终端键盘上打入：
3.5+0.7*10=
后，程序将显示出结果10.5，且把它输出。
2．程序设计要求：
1）采用结构化的程序设计方法进行编程；
2）用case控制语句实现选择分支结构；
3）用while \repeat…until\for语句实现循环结构；
4）利用标准过程readkey实现程序执行暂停；
5）利用标准过程 clrscr实现清屏操作。
不会，怎么编，拜托了

const
m=1000;
type stack=array[1..m]of extended;
stack2=array[1..m]of char;
var s:stack;
s2:stack2;
a,e:string;
t,i,x,y:integer;
j,k:extended;
w:char;
cha:set of char;
procedure push2(var s:stack2;x:char;var t:integer);
begin
if t=m then writeln('overflow')
else begin
t:=t+1;
s2[t]:=x;
end;
end;
function pop2(var s:stack2;var t:integer):char;
begin
if t=0 then writeln('underflow')
else begin
pop2:=s2[t];
t:=t-1;
end;
end;
function top2(s:stack2;t:integer):char;
begin
if t=0 then writeln('stack empty')
else top2:=s2[t];
end;
procedure push(var s:stack;x:extended;var t:integer);
begin
if t=m then writeln('overflow')
else begin
t:=t+1;
s[t]:=x;
end;
end;
function pop(var s:stack;var t:integer):extended;
begin