Дана строка, изображающая двоичную (десятичную) запись целого числа. Вывести строку, изображающую десятичную (двоичную) запись этого же числа — Pascal(Паскаль)

{десятичная-двоичная}
uses crt;
var
dec:integer;
v: integer;
i: integer;
begin
clrscr;
write('->'); readln(dec);
v:=255;
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);
 end;
 readln;
 end.