Bonjour à tous !

J'ai créé ce programme de conversion décimale vers binaire (nombre entier de 0 à 255) le probleme est que lorsque l'on entre un nombre et valide par "entrée" le programme s'arrête sans donner de résultat.

Pouriez-vous me dire d'ou vient l'erreur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program decbin;
var
   reste : integer;
   i : integer;
   bin : integer;
   bit : array[0..7] of integer;
begin
   i:=7;reste:=0;bin:=128;
   writeln('Entrez un nombre entier entre 0 et 255');
   readln(reste);
   for i:=7downto 0do begin
      if reste>=bin then
         begin
         bit[i]:=1;
         reste:=reste-bin;
         end
      else
         begin
         bit[i]:=0;
         end;
      bin:=bin div 2;
     end;
   writeln('Le resultat est :');
   for i:=7downto 0do begin
      writeln(bit[i]);
   end;
 end.
Merci