Написать программу, использующую подпрограмму, для преобразования введенного с клавиатуры десятичного числа в двоичное. Двоичное число записать в строку — Pascal(Паскаль)

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