Перевод числа из СС с основанием 10 в СС с основанием N и обратно

[Василий15]

Написал перевод из А10 в АN. Помогите оформить обратную процедуру.

var a1,b: integer;

procedure f(a:integer);
 begin
  while (a div b)>0 do
   begin
    f(a div b);
    a:=a mod b;
   end;
 write(a);
end;

begin
writeln('Введите число, которое необходимо перевести в другую систему счисления');
readln(a1);
writeln('Введите номер системы счисления, в которую требуется перевести число');
readln(b);
F(a1);
end.