Помогите,пожалуйста,реализовать данную программу с помощью функции.

[anasttb]

var a,b,c,i,k:integer;
 m: array[0..10000] of integer; 
begin 
k:=0; 
readln(a);
 repeat 
b:=a mod 2;
k:=k+1; 
m[k]:=b; 
c:=a div 2; 
if c>=2 then
a:=c; 
until c<2; 
write(c); 
for i:=k downto 1 do write(m[i]);
end.