Описать функцию DecToBin(N), возвращающую представление числа в двоичной системе счисления

//Функция преобразования целого числа (положительного,
//отрицательного либо нуля) в двоичную запись.
function IntToBin(const aNum : Int64) : String;
var
  Num, Sign : Integer;
  Res : String;
begin
  Res := '';
 
  if aNum >= 0 then
    Sign := 1
  else
    Sign := -1
  ;
  Num := Abs(aNum);
  repeat
    case Num mod 2 of
      0 : Res := '0' + Res;
      1 : Res := '1' + Res;
    end;
    Num := Num div 2;
  until Num = 0;
 
  if Sign = -1 then Res := '-' + Res;
  
  IntToBin := Res;
end;

{ Составить программу перевода десятичного числа в двоичное }
uses crt;
function DecToBin(n:longint):string;
const c:array [0..1] of char= ('0','1');
var res:string;
begin
res:='';
while (n<>0) do
 begin
  res:=c[n mod 2]+res;
  n:=n div 2;
 end;
DecToBin:=res;
end;
var a:longint;
    i:byte;
begin { основная программа }
clrscr;
for i:=1 to 5 do
 begin
  write('Введите десятичное число а= ');
  readln( a );
  writeln(DecToBin(a));
 end;
readln
end.