Đổi sang hệ nhị phân

Đọc một số nguyên dương, sau đó viết ra màn hình số đó dưới dạng nhị phân, Nhóm thành từng nhóm 4 chữ số nhị phân cho dễ đọc.
 Ví dụ: 254 viết là: 1111 1110
Var
       s,g: String;
       x,y,t,i,d: Integer;
BEGIN
       Write('Nhap so can doi: '); Readln(t);
       x:=t;
       Repeat
           y:= x mod 2;
           str(y,g);
           s:=s+g;
           d:=d+1;
           If d = 4 Then
               begin
                   s:=s+' ';
                   d:=0;
               end;
                   x:= x div 2;
       Until x = 0;
       Write(t,' trong co so 2 la: ');
       For i:=length(s) downto 1 do
           Write(s[i]);
       Readln;
END.