Program koversi bilangan bulat menjadi bilangan binner melalui turbo pascal

uses crt;
var
s,d:integer;
b:string;
ulang:char;
begin
repeat
        clrscr;
        writeln('program koversi bilangan bulat menjadi bilangan binner');
        writeln;
        writeln('====================');
        writeln;
        write('masukkan bilangan bulat : ');readln(s);
        d:=s;
        b:='';
        repeat
if(s mod 2 = 0)then
b:='0'+b
else
b:='1'+b;
s:=s div 2;
until s=0;
writeln;
writeln('bilangan binner dari angka ' ,d,' adalah= ',b,' binner');
writeln('mau input lagi ??? [Y/T] : ');readln(ulang);
ulang:=upcase(ulang);
until (ulang<>'Y');
readln;

end.