Pascal/Turbo Pascal - AYUDA CON TAREA

Necesito que me ayuden con una tarea, soy nuevo alumno en Pascal y el prof. nos pidio hacer un programa que pase un numero Decimal a binario. Y la realidad no se como hacerlo.
Si alguien me ayuda ....
gracias

Aquí va:

{ Transforma el número Decimal "Source" en Binario }
Function DecToBin(Source :Word) :String;
Const
BinStr :String[2] = '01';

Begin
If (Source=0) then
DecToBin := '0'
Else
DecToBin := DecToBin(Source Div 2) + BinStr[(Source Mod 2)+1];
End; {DecToBin}

Saludos ;-)

Gracias por la ayuda...
Nos estamos hablando

me llega como ayudan a los demas

me gustaria que me ayudaran a realizar un examen evaluativo en t.p
el programa tiene que llevar 10 preguntas de vf
y 10 de seleccion multiple
tiene que tener las caracteristicas siguiente:
al final de las preguntas tirar el numero de preguntas asertadas y el numero de preguntas fallidas
perotinene que tirar las res puestas porte al final tien que apareser la occion si desea volver a evaluarse
gracias

Me puedes informar del tipo de preguntas para poder preparar las respuestas.