рекурсивное деление, некак немогу сообразить как рекурсией Опции

[maksimla]

Придположим что купили компиютер,который невыполняет натуральных чисел деления операцию.
Задание. Напишите рекурсированную процедуру двух натуральных чисел деление остатка и (ой забыл слово) найти тоесть выполняющяя операцию div и mod.

Сделал я это все только нерекурсивно просто в процедуре написал

program Bevarde0;
var a,b,m,c:integer;
procedure del (a,b:integer);
begin
m:=0;
while a>=b do
begin
 inc(m);
 a:=a-b;
 end;
 c:=a;
end;
begin
  WriteLn('iveskite du skaicius');
  readln(a,b);
  del(a,b);
  writeln(a,' div ',b,' = ',m);
  writeln(a,' mod ',b,' = ',c);
  readln;
end.

Можете обьяснить как мне сделать рекурсией только невыкладываете решение то я сам хочю сделать рекурсией.

Добавлено через 16 мин.
Вот что получилось у меня рекурсивно

procedure del (a,b:integer);
begin
m:=-1;
if a>=b then del(a-b,b);
inc(m);
writeln('m= ',m);
if m=0 then c:=a;
end; 

кажется что все нормально выводит но мне кажется что както можно лутшей может обьясните но только невыкладывайте решения