Vector Suma Binaria en Delphi?

[SuViRaLeS]

Hola Necesito ayuda, mi Docente me pidió que toda esta codificación lo pase a Delphi y no sé cómo... supuestamente es suma binaria en vector.
en otras palabras introcuducimos número decimal y que nos devuelva el resultado a binario.
también tengo que hacer Resta Binaria, Multiplicación binaria, División Binaria.

Le agrege unas aclaraciones para hacerlo mas claro.
Program COMPLEMENTOA2;
USES crt;
TYPE
   numero= string[32];
   vector= array[1..32]of byte;
VAR
  N:numero;
  bits,D,f,h,i,j:longint;
  g:integer;{es solo pasa el posible error de la funcion VAL}
  V:vector;
Begin
    clrscr;
    D:=0;
    i:=0;
    writeln('ingrese el numero binario');
    readln(N);
    writeln('ingrese cantidad de bits a trabajar');
    readln(bits); {para definir el tope del vector}
    D:= length(N);  {cantidad de digitos ingresados}
    If D<bits then
       begin
          i:=bits;
            while d>=0 do
               begin
                val(n[d],f,g);
                V:=f;   {con esto lo que hago es agregar los ceros
                            para completar los bits (8,16,32)}
                D:=D-1;
                i:=i-1;
               end;
            for j:=1 to bits do
                begin
                    write(V[j]);
                end;
       end
    Else
       begin
            writeln('el numero es mayor a la cantidad de bits a trabjar');
       end;             {mostrar si se pasa del tope}
{------------------------------------------------}
{esto me sirve para cambiar los 1 por 0 y viceversa}
for h:=1 to bits do
begin
   If V[h]=1 then
    begin
     V[h]:=0;
    end
   else
    begin
     V[h]:=1;
   end;
  write(V[h]);
  end;
{------------------------------------------------}
{ahora no sé como codificarlo en DELPHI}
{mi idea es despues pasar esto a una funcion,
pero primero lo hago asi para ver si funciona}
readkey;
end.
bueno, espero tu respuesta, desde ya muchas gracias por tu tiempo.
saludoS!