Перевод из десятичной в двоичную систему счисления — Pascal(Паскаль)

PROGRAM borlpasc; {ПЕРЕВОД ЧИСЛА ИЗ 10-ОЙ СИСТЕМЫ СЧИСЛЕНИЯ В 2-УЮ}
TYPE massiv=array [1..50] of integer;
var a:massiv;
    n,i:integer;
begin write('введите число:');
      readln(n);
      i:=1;
      while n>=2 do
      begin a[i]:= n mod 2;
            i:=i+1;
            n:= n div 2;
      end;
      i:=i-1;
      write(n);
      while i<>0 do
      begin write(' ',a[i]);
            i:=i-1;
      end;
      writeln
end.

program two_system;
var sec:array[1..16] of byte;
    d,ten,i:integer;
    procedre  two( ten_1:integer;var two_s:byte);
      begin two_s:=ten_1 mod 2;
            ten_1:=ten_1 div 2;
      end;
begin
   write('введите нат.число: ');
   readln(ten);
   if ten<=0 then write('некорректные данные')
             else
              d:=ten;
              a[i]:=0;
              fori:=16 downto 1 do two(ten,sec[i]);
              write('натуральное число: ',d);
              write('в двоичной системе счисления ');
              for i:=1 to 16 do write(' ',sec[i]);
end.