40 Балллов! Помогите пожалуйста с задачей по Delphi(Pascal). Буду очень

40 Балллов! Помогите пожалуйста с задачей по Delphi(Pascal). Буду очень благодарен.
----------------------------------------------------------------
var i,input:integer;

begin
Writeln('Decimal To Binary');
Writeln('Enter any number(0-255) and press ');
write(' - ');
Readln(input);

for i:=1 to 8 do
begin
if input mod 2 = 0 then
begin
Write('0');
end;
if input mod 2 = 1 then
begin
write('1');
end;
end;

Readln;
end.
----------------------------------------------------------------
Надо чтоб десятичное число переводилось в двоичное, но здесь неувязка в том что мне необходимо чтоб число выводилось в двоичном коде. Я никак это не могу сделать. Так как если я прибавляю input:=input/2 внутри цикла последней строчкой, то программка пишет "Incompatible types: 'Integer' and 'Extended' ". А если я меняю тип данных переменной input на real, то начинает браниться mod(он работает только с целочисленным типом данных).