Помогите с двоичным кодом. Надо ответ без 0 перед 1

Question

var a,b,i,a1:integer;

var s:array[1..20] of integer;

begin

repeat

read(a);

a1:=a;

writeln('Код начинается с единицы');

writeln('Максимальное 1000000');

repeat

i+=1;

if a mod 2=0 then s[i]:=0 else s[i]:=1;

a:=a div 2;

until a=0;

writeln('Десятичный: ',a1);

writeln('Двоичный: ',s[20],s[19],s[18],s[17],s[16],s[15],s[14],s[13],s[12],s[11],s[10],s[9],s[8],s[7],s[6],s[5],s[4],s[3],s[2],s[1]);

s[i]:=0;

writeln;

until b=1;

end.

Никита · Accepted Answer

uses
 crt;

var
 dec: integer;
 bin: string;
 ch: char;

begin
 repeat
 clrscr;
 write('Десятичный код: ');
 readln(dec);
 bin := ''; 
 while dec > 0 do
 begin
 bin := IntToStr(dec mod 2) + bin;
 dec := dec div 2;
 end;
 writeln('Двоичный код: ', bin);
 ch := readkey;
 until ch = #27;
end.