помогите доработать маленькую прогу на паскале(см. внутри)

Чтобы перевести число из двоичной в десятичную, нужно каждый единичный разряд двоичного числа умножить на основание двоичной сс, т. е. , на два, в степени "позиция этого разряда, отсчитывая справа от нуля". Затем сложить все получившиеся результаты. Это математика.
Пример:
1010
Переводим (с права на лево) :
0 * 2 ^ 0 = 0
1 * 2 ^ 1 = 2
0 * 2 ^ 2 = 0
1 * 2 ^ 3 = 8
0 + 2 + 0 + 8 = 10.

На том же принципе основан код программы, только возведение в степень делается при помощи сдвига единицы на N разрядов влево. Можно заменить функцией Pow.

Код:
=======================
program PBinToDec;

var
Bin: String;
Dec: Integer;
LngBin: Integer;
I: Integer;

begin
Write('Input binary: ');
ReadLn(Bin);
LngBin := Length(Bin);

if LngBin > 8 then
begin
WriteLn('Bin > 8!');
ReadLn;
Exit;
end;

Dec := 0;
for I := 1 to LngBin do
begin
if Bin[ I ] = '1' then
{ Число = Число + 2 ^ (Длина - I),
равносильно: Число = Число + Pow(2, Длина - I) }
Dec := Dec + (1 shl (LngBin - I))
else
if Bin[ I ] <> '0' then
begin
WriteLn('Bin[', I, '] is not 0 or 1!');
ReadLn;
Exit;
end;
end;
WriteLn('Dec = ', Dec);
ReadLn;
end.
==================
Вопросы? Пиши в ICQ: 228004347 или Агент.