ho visto in internet moltissimi esempi di programmi per trasformare numeri decimali in binari, ma l'output è una variabile di tipo stringa.
così io ho voluto ideare un algoritmo che dia come output un numero intero:
codice:
function binary(num:integer):integer;
var  i,countmax,numcopy:integer; vettore:array[1..1000] of integer;
begin
numcopy:=num; countmax:=0; binary:=0;
   {con il passaggio successivo vedo quante cifre avrà il numero binario}
   repeat begin
   numcopy:=numcopy div 2;
   countmax:=countmax+1;
   end;
   until numcopy=0;

{countmax rappresenta il numero di cifre del numero binario}
for i:=countmax-1 downto 0 do
vettore[i]:=num mod 2;

for i:=0 to countmax-1 do

{praticamente qui moltiplico ogni cifra per la potenza di dieci relativa alla sua posizione, come so fosse un numero decimale}

binary:=trunc(binary+exp(ln (10)*i));
end;

{questo codice viene compilato correttamente, ma ad ora di usarlo il programma si chiude con:
exit with
exitcode 217}
dove sta il problema??

sapete in caso consigliarmi un algoritmo analogo funzionante?