Перевести число в q-ичную систему

[evg_m]

переделал в блокноте(!!)
while -> for
оптимизационный пропуск левых нулевых (незначащих) цифр в массиве К.

  fn:=0;
  for i:=nr-1 downto 0 do begin
    t:=0;
    for j:=fn to n-1 do begin
      fn:=n;
      t:=t *p +K[j];
      K[j]:=0;
      if (n-1-j) mod x =0 then begin
        K[j]:=t div q;
        if (fn=n) and (K[j]>0) then fn:=j; 
        t:=t mod q;
      end;
    end;
    R[i]:=t;
  end;