programa en lazarus

[cuteprincess]

hola antes k nada muxas grax x ayudarm y tomar su tiempo, m surgio otra duda este es mi programa pero m marca un error en en la division x k m dice k son incompatibles los tipos, tambien no c si este bien en como concatene el vector, ojala puedan ayudarm grax

procedure TForm2.Button1Click(Sender: TObject);
var
a:integer;
b:integer;
x:integer;
d:integer;
r :array [1..8] of Integer;
begin
a:= StrToInt( decimal.Text);
if(a < 255)then
for x:= 1 TO 8 DO
begin
b := a;
d := a / 2;
r[x]:= b % 2;
a:= d;
end
ShowMessage('EL NUMERO BINARIO ES: '&r[8]&r[7]&r[6]&r[5]&r[4]&r[3]&r[2]&r[1]);
else
ShowMessage('EL NUMERO ES MAYOR A 254');
end;