Перевод дробных и целых чисел из 4 сс в 10 сс и обратно

function KToDec(st: string; var w:integer):real; {перевод в 10 сс}
var i,j,l:byte; y,k,w1:real;
begin
  w:=0;
  w:=pos('.',st);
  l:=length(st);
  j:=0;
  y:=0;
  if w=0 then
   for i:=l downto 1 do
   begin
    y:=y+1;
    j:=j+1;
   end
  else
  begin
  for i:=w-1 downto 1 do
    begin
    y:=y+(ord(st[i])-ord('0'))*power((ord(st[i])-ord('0')),j);
    j:=j+1;
   end;
  j:=-1;
  for i:=w+1 to l do
    begin
    k:=k+(ord(st[i])-ord('0'))*power((ord(st[i])-ord('0')),j);
    j:=j-1;
    end;
  end;
  l:=l-w;
  w1:=1;
  for i:=1 to l
  do w1:=w div 10;
  y:=y+k*w1;
  KToDec:=y;
end;
 
 
function DecToK(x:real): string; {обратный перевод}
var i:byte; w,l,d,j:integer; st,y,k,s:string; m:real;
  begin
  w:=0;
  w:=pos('.',st);
  l:=length(st);
  y:= '';
  if w=0 then
  begin
    d:=trunc(x);
  repeat
    i:=d mod 4;
    d:=d div 4;
    y:=chr(i+48)+y
  until d = 0;
  end
  else
  begin
   m:=frac(x);
   d:=trunc(x);
   repeat
     i:=d mod 4;
     d:=d div 4;
     y:=chr(i+48)+y
   until d=0;
   for j:=1 to 6 do {точность 6 знаков после запятой}
   begin
     d:=trunc(m*4);
     m:=frac(m*4);
     k:=chr(d+48)+k;
   end
  end;
  if w=0 then DecToK:=y
  else DecTok:=y+'.'+k;
end;