как перевести число из двоичной системы в десятичную. число 111110011 (999 в десятичной)

Умножай цифру на 2 в степени позиции этой цифры и суммируй все произведения. Позиция с нуля справа налево.

Результат: =0;
Пока ЕстьЕщеЦифры ()
Цикл
Результат: =Результат*2+СледующаяЦифра ();
Коне Цикла;
Печатать (Результат);

program cel;
uses crt;
var a,n,d:integer;
Str:string;
begin
clrscr;
writeln('Перевод числа из двоичной в десятичную СС ');
writeln('-------------------------------------------');
Write('Число в двоичной С2--> '); ReadLn(Str);
d := 0;
for n := 1 to Length(Str) do
if Str[N] = #48 then D := D shl 1 else
if Str[N] = #49 then D := D shl 1 + 1 else
begin WriteLn('число не двоичное'); Halt; end;
WriteLn('число в 10 системе= ',d);
writeln(' конец задачи');
readkey;
end.