Калькулятор Опции

[antonioSP]

Помогите плз с програмкой. Нужно сделать калькулятор считающий в разных системах счисления. В десятично я сделал, а как реализовать в других понятия не имею. Подскажите как лучше и проще это сделать.

[antonioSP]

Прошу помощи в поиске ошибке в процедуре ToDec для калькулятора, чтобы переводила дробные значения какой-то сс в десятичную. Она ещё не доработана (не работает для чисел в сс>10),но хотелось бы попробывать сначало хотябы с дробными двоичными.

function stepen(a,n:integer):integer;
var
s,i:integer;
 begin
  for i:=1 to n do
  s:=s*a;
  stepen:=s;
 end;

function ToDec(n:string; radix:longint):real; 
var
l,d:real;
m,i:longint;
const
digit: string[16]='0123456789ABCDEF';
begin
l:= strtofloat(n);
if frac(l)>0 then
begin
m:=0;
while n[1]='0' do delete(n,1,1);
for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
d:=0;
for i:=1 to length(floattostr(frac(l))) do
 if i>1 then d:=d+1/stepen(radix,(i-1));// ошибка возникает тут
 todec:=int(m)+d;
end
 else
  begin
  m:=0;
  while n[1]='0' do delete(n,1,1);
  for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
  ToDec:=m;
  end
end; 

Просьба не смеятся на корявым (пока ещё) алгоритмом