[vlad309523]

Все! Проблему решил при помощи процедуры

Код:

procedure xn;
 begin
  str(x[n]:0:4,tx[n]);
  tx[n]:=copy(tx[n],pos('.',tx[n])+1,4);
  if tx[n]='0000' then
   s[n]:=0 else
   begin
    tx[n]:=copy(tx[n],2,3);
    if tx[n]='000' then
     s[n]:=1 else
     begin
      tx[n]:=copy(tx[n],2,2);
      if tx[n]='00' then
       s[n]:=2 else
       begin
        tx[n]:=copy(tx[n],2,1);
        if tx[n]='0' then
         s[n]:=3 else
         s[n]:=4
       end
     end
   end
 end

Код залил в шапку.