Ecriture fonctions en pascal

voici ce que j'ai cherché pour le CAS1

procédure décompbin(nombre:integer; var nbbin:nombrebinaire);
const N=10
var
i:integer; {copie du nbre}
n ch:integer; {nbre de chiffre}

BEGIN
n bis:=nombre;
while nombre>0 do
BEGIN
n ch:=n ch+1;
nombre[n ch]:=nombre*mod2;
nombre:=nombre*div2;
nombrebinaire[i]:=nombre;
end;
end;

Il vaudrait mieux que tu poursuives ton raisonnement là où tu l'as commencé (ici).
Enfin moi je dis ça...