Перевод из десятичной в двоичную на языке Паскаль

Перевод десятичного числа от 0 до 255 в двоичное на Паскале.

program ex59;
Uses Crt;
VAR
dec:integer; {(10)-е число}
v: integer; {вес разряда }
i: integer; {номер разряда }
BEGIN
ClrScr;
WriteLn(' Преобразование десятичного числа в двоичное');
Write ('Введите целое число от 0 до 225: ');
ReadLn(dec);
v:=128; {вес старшего 8-го разряда }
FOR i:=1 to 8 DO
begin
if dec>=v then
begin
write('1');
dec:= dec - v;
end
else write('0');
v:= ROUND(v/2); {вес следующего разряда в 2 раза меньше }
end;
readLn;
END.