Напишите программу с использованием рекурсии для поиска наименьшего элемента массива

[netiv]

Помогите с алгоритмами.
Задание:
1. Напишите программу с использованием рекурсии для поиска наименьшего элемента массива.
2. Используя рекурсию написать программу перевода натурального числа из де-сятичной системы счисления в двоичную.

Без всяких там рекурсий могу сделать эти 2 задания в считанные минуты, а вот с рекурсией не понимаю. Вот пробывал сделать 1 задание но никак не выходит.

type
mas=array [1..1000] of real;
var
    a:mas;
    n:integer;
    min:real;
    
Procedure init(var x:mas;n:integer);
var i:integer;
begin
for i:=1 to n do begin
write('Vvedite[',i,']');
readln(x[i]);
end;
end;


procedure recurs (n:integer;x:mas;min:real);
begin
min:=x[1];
if n=1 then exit
else if x[n]<min then min:=x[n];
recurs (n-1,x,min);
end;

procedure print (x:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
write(x[i],' ');
end;

begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
init(a,n);
recurs(n,a,min);
print(a,n);
writeln('min:=',min)
end.

[Katus]

fuction fmin(a: mas; i, n: byte): real; // a - массив, i - начальный индекс масива, n - конецный индекс массива
begin
if i<n then 
  if a[i]<fmin(a,i+1,n) then
    result:=a[i]
  else
    result:=fmin(a,i+1,n)
else
  result:=a[n];
end;

[Katus]

fuction dtb(dec: integer):integer;
begin
if abs(dec) div 2 < 2 then
  result:=abs(dec) mod 2
else 
  result:=dtb(dec div 2)+abs(dec) mod 2;
end;

если не ошибаюсь то должно работать...=. только для +чисел

[netiv]

Сообщение от Katus

fuction dtb(dec: integer):integer;
begin
if abs(dec) div 2 < 2 then
  result:=abs(dec) mod 2
else 
  result:=dtb(dec div 2)+abs(dec) mod 2;
end;

если не ошибаюсь то должно работать...=. только для +чисел

Вообщем код не работает в ответе при вводе 10 выдаёт только 1 цифру , вместо 4, да и при других числах тоже

[Serge_Bliznykov]

2. Используя рекурсию написать программу перевода натурального числа из де-сятичной системы счисления в двоичную.

а если так:

function dec2bin(dec : longint):string;
begin
  if dec=0 then dec2bin := ''
  else
    if odd(dec) then
      dec2bin := dec2bin(dec div 2) + '1'
    else 
      dec2bin := dec2bin(dec div 2) + '0';
end;

var N : longint;
begin
  Readln(N);
  WriteLn('Binary : ', dec2bin(N));
  Readln  
end.