Перевод дробных чисел из 3-й системы счисления в 10-ю, help Опции

[Claymore]

Нужна помощь, прога нужна к завтрашнему. Заранее спасибо.

[Claymore]

program abc;
var
x,y,z,k,s1,s2,s:real;
i,j,a,b,c:integer;
m:array[1..100] of integer;
n:array[1..100] of integer;
begin
writeln('Vvedite 4islo v troi4noi sisteme s4islenia');
readln(x);
y:=trunc(x);
while y>=10 do
begin
y:=y/10;
end;
z:=frac(x);
z:=z*100000;
z:=trunc(z);
while z>=10 do
begin
z:=z/10;
end;
if (round(y)>=10) then
m[1]:=1
else
m[1]:=round(y);
if (round(z)>=10) then
n[1]:=1
else
n[1]:=round(z);
a:=1;
b:=1;
for i:=2 to 100 do
begin
y:=frac(y);
y:=y*10;
if (round(y)=10) or (frac(y)=0) then break
else
m[i]:=round(y);
a:=a+1;
end;
for j:=2 to 100 do
begin
z:=frac(z);
z:=z*10;
if (round(z)=10) or (frac(z)=0) then break
else
n[j]:=round(z);
b:=b+1;
end;
c:=0;
s1:=0;
for i:=a downto 1 do
begin
k:=m[i]*EXP(©*LN(3));
s1:=s1+k;
c:=c+1;
end;
s2:=0;
c:=1;
for j:=1 to b do
begin
k:=n[j]*EXP((-c)*ln(3));
s2:=s2+k;
c:=c+1;
end;
s:=s1+s2;
writeln(s);
end.

.