一道pascal程序题

关于十进制转换其他进制的题

m为被转换数，n为转换成什么进制

【原程序】

我是用递归做的，但在试验的时候，输入8 2，而输出1100，不知道什么原因

program a1;
var
m,n:integer;
f1,f2:text;
procedure jzhi(m:integer);
begin
if m<n then write(f2,m)
else begin
m:=m div n;
jzhi(m);
write(f2,m mod n);
end;
end;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
read(f1,m,n);
close(f1);
rewrite(f2);
jzhi(m);
close(f2);
end.
做出来追加悬赏

问题在jzhi(m)的后面一行，其实此时需要输出的应该是m div n之前的m