Умножение в двоичном коде

program lab_1;
uses crt;
type mas=array[1..50]of byte;
var c,d,i,j,k,s:integer;
      a,b,U,V:mas;
 
procedure per(var x:integer;var y:mas);
begin
i:=0;
 while (x>0) do
   begin
    i:=i+1;
    y[i]:=x mod 2;
    x:=x div 2;
   end;
end;
 
procedure umn;
begin
i:=1;j:=1;k:=1;
  while b[i]<>2 do
  begin
    while a[j]<>2 do
     begin
      if (a[j]=1)and(b[i]=1) then U[k]:=U[k]+1 else U[k]:=U[k]+0;
      j:=j+1;
      s:=k;
      k:=k+1;
     end;
     j:=1;
    i:=i+1;
    k:=i;
  end;
end;
 
BEGIN
clrscr;
for i:=1 to 50 do begin a[i]:=2;b[i]:=2;U[i]:=0;end;
writeln('vvedite chisla.Pervoe bolshe vtorogo');
read(c,d);
s:=c*d;
per(c,a);
per(d,b);
per(s,V);
umn;
for i:=1 to s do
  if u[i]<>v[i] then writeln('oshibka')else if i=s then writeln('vse verno');
readln;
END.