умножение в двоичной системе

[phasha]

запутался в алгоритме и уверен что он не правильный

program Lab4;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var a,b,c:integer;

begin
   write('a=');Readln(a);
   write('b=');Readln(b);
   c:=0;
   while b<>0 do begin
     if (b and 1)=1 then
      c:=c+a;
     a:=a shr 1;
     b:=b shr 1;
   end;
   Writeln('a*b= ',c);
   Readln;
end.

подскажите, как справиться с данной проблемой?

[DiemonStar]

a:=a shr 1;

попробуйте поменять на

a := a shl 1;

[phasha]

точно! спасибо!)