Перемещение запятой (Pascal)

[Черепаwка]

Программа переводит из 10 сс в 8(это делать не нужно ). Число (например, 113,546) представленное в 8 СС надо представить в виде 0,мантисса*порядок (выражающего степень основания числа, на которое умножается мантисса). (соответственно, 0,113546000Е+03)

const
a: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWX YZ';
var
r,rez, s, s2, s3: string;
d, t, cc, ind, cc2, k: integer;
m:real;
y:byte;
...

begin
ClrScr;
repeat
write('iz kakoi budem perevodit SS: ');
readln(cc2);
write('vvedite SS v kotoryu xotite perevesti: ');
readln(cc);
until (cc2 in [2..36]) and (cc in [2..36]);
repeat
write('vvod 4isla v ', cc2, '-i SS: ');
readln(s);
Del(s);
if not prov(cc2,s2) and not prov(cc2,s3) then
write('nekorektnoe 4islo. Povtorite ')
until prov(cc2,s2) and prov(cc2,s3);
if cc2 = 10 then
begin
write('Vvedite to4nost : ');
readln(t);
if (s3='') then
rez := Cel(s2, cc)
else
rez := Cel(s2, cc) + ',' + Drob(s3, t, cc);
end
else
begin
if ind = 0 then
rez := Cel(ToDec(s2, cc2), cc)
else
rez := Cel(ToDec(s2, cc2), cc) + ',' + drob(drob2(s3, cc2), length(s3), cc);
end;
write('4islo ',s,'_',cc2,' v ',cc,'-i sisteme s4isleniya:=',rez);
{d:=StrToInt(rez);}
y:=pos('.',rez)-1;
while d>1 do
begin
{ y:=y+1; }
d:=d div 10;
end;
m:=d/y;
writeln(m);
{str(d,s);
r:=r+'*10^';
writeln(r,y);}
readkey
end.

[Alex11223]

Так и мозг с глазами сломать можно. Используйте [CODE] (значек #) для сохранения форматирования\подсветки кода вместо цитаты.