Написать программу перевода из десятичной системы счисления в двоичную при помощи функций пользователя. Паскаль(Функции пользователя).

Program n1; var n: integer;function per(n: integer ): integer;var a: array[1..500] of integer; i,c:integer; beginc:= 0; repeat c:= c + 1; a[c]:= n mod 2; n:= n div 2; until n = 0; for i:= c downto 1 do write(a[i]); end;begin write('введите число: ');readln(n); per(n);end.