Дано натуральное число N. Выведите его представление в двоичном виде в обратном порядке — Pascal(Паскаль)

uses crt;
const c:array [0..1] of char= ('0','1');
var a:longint;
    res:string;
    d:0..1;
begin
clrscr;
write('Введите десятичное число а= ');
readln( a );
res:='';
while (a<>0) do
 begin
  d:=a mod 2;
  res:=res+c[d];
  a:=a div 2;
 end;
writeln('В обратном порядке в СС 2=',res);
readln
end.