除法计算的问题，很急(100分)

下面是我想达到的效果，就是不会写，请大家帮帮忙吧！！
效果：a=5,b=3,c=5/3=1.67

c=double(a)/double(b)
c=5/3.0f

自已定个函数Rnd,以后要用调用一下就行了
interface
uses math;
type
function Rnd(SrcNum : Real;Position : integer=0) :real;
implementation
function Rnd(SrcNum: Real;
Position: integer=0): real;
var
temp1:real;
begin
temp1 := power(10,Position);
SrcNum := SrcNum * temp1;
if SrcNum >=0 then
begin
if SrcNum -Trunc(SrcNum) >= 0.5 then
Result := (Trunc(SrcNum) +1)/temp1
else
Result := Trunc(SrcNum)/temp1;
end
else
begin
if abs(SrcNum -Trunc(SrcNum)) >= 0.5 then
Result := (Trunc(SrcNum) -1)/temp1
else
Result := Trunc(SrcNum)/temp1;
end;
end;

var a,b,c:real;
begin
a:=5;
b:=3;
c:=rnd(a/b,2);
end;

5/3
不就可以了?

Sea008请问您这个函数能做到四舍五入吗？

很简单的问题，有这么复杂吗？
c:=RoundTo(5/3, -2);
就是1.67