Pascal/Turbo Pascal - Algoritmos en pascal - Leer una lista indeterminada y pasar de Base10 a Base2

Primer programa:

Uses CRT;

var

  N : Integer;

  NEGATIVOS : Word;

  POSITIVOS : Word;

  IMPARES   : Word;

  PARES     : Word;

begin

  PARES:=0;

  IMPARES:=0;

  NEGATIVOS:=0;

  POSITIVOS:=0;

  repeat

    Clrscr;

    Writeln('Introduzca un n£mero (0 para finalizar): ');

    readln(N);

    if (odd(n)) then

      impares:=impares+1

    else

      if n<>0 then

      pares:=pares+1;

    if n<0 then

      inc(negativos)

    else

      if n <> 0 then

        inc(positivos);

  Until N = 0;

  Writeln('POSITIVOS: ',POSITIVOS);

  Writeln('NEGATIVOS: ',NEGATIVOS);

  Writeln('PARES: ',PARES);

  Writeln('IMPARES: ',IMPARES);

readln;

end.

Segundo programa

Uses CRT;

Var

  auxn, N : Integer;

  RESTO : Integer;

  auxcad, cadena,s : string;

function Invertir_cadena (cadena : string) : string;

var longitud:byte; { longitud del string cadena }

  a:byte; { contador bucle }

  Xcadena:string;{ cadena temporal}

begin

Invertir_cadena:=''; { reiniciamos a null y retorno de la funcion }

Xcadena:=''; { reiniciamos a null ( cadena vacia ) }

longitud:=length(cadena);

for a:=longitud downto 1 do Xcadena:=Xcadena+cadena[a];

Invertir_cadena:=xcadena; { retorno de la funcion }

end;

begin

  cadena:='';

  auxcad:='';

  Writeln('Introduzca un n£mero: ');

  readln(N);

  auxn:=n;

  While n>0 do

    begin

      str((n mod 2),s);

            n:=n div 2;

      cadena:=cadena+s;

    end;

    writeln('El n£mero ',auxn, ' en binario es: ', Invertir_cadena(cadena));

readln;

end.

var

k ,n : byte;

i,num,

sum : word;

begin

clrscr;

num:= 0;

k:=0;

Writeln('Ingrese la cantidad de numeros perfectos que desea conocer');

Readln(n);

while k < n do begin

inc(num,2);

sum:= 0;

for i:= 1 to num div 2 do

if num mod i = 0 then

inc(sum,i);

if sum = num then begin

inc(k);

writeln(k,'º nro. perfecto: ',num:3)

end

end;

readln

end.