Перевод строки в число

[Черепаwка]

Нужно перевести строку в число. После перевода это число разделить. Он выдает несоответствие типа. Не пойму в чем проблема =\
Суть программы перевести число с плавающей точкой из 10 сс в 8 сс и записать в виде, например вот так 0,2165515*10^6.

Uses
 CRT;
const
 a: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; {zadaem stroky dlya poiska v nei simvolov}
var
  rez, s, s2, s3: string;
  d, t, cc, ind, cc2, k: integer;
  y:byte;
...
function StrToInt(rez:string):integer;
   var
   code, i:integer;
   begin
   Val(rez, i, code);
   if code=0 then
   StrToInt:=i;
   end;
...
end;
  write('4islo ',s,'_',cc2,' v ',cc,'-i sisteme s4isleniya:=',rez);
  d:=StrToInt(rez);
  y:=1;
  while d div 10>0 do
  begin
  y:=y+1;
  d:=d/10;
  end;
  {c:=length(rez)/10;
  y:=length(rez);} { THE END }
  readkey
end.

[Mad_Cat]

d, t, cc, ind, cc2, k: integer;
{......}
while d >10 do // лучше так написать
{....}
d:=d/10; // тут будет Real нужно d:=d div 10;