Задача по системам счисления

[Rusl92]

В файле input.txt два натуральных числа K и N. (0<N<1000000000,1<k<10). Число N дано в десятичной системе счисления. Написать программу перевода числа N в систему счисления K. Записать результат в output.txt.
Пример
Input Output
4 111 1233
Помогите пожалуйста!

[CrazyRabbit]

держи код:
var a:array[1..1000]of byte;
cel,i,n,k:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(k,n);

i:=1;
while n<>0 do
begin
cel:=n div k;
a[i]:=n-cel*k;
inc(i);
n:=cel;
end;

for k:=i-1 downto 1 do
write(a[k]);
close(input);
close(output);
end.

[Rusl92]

спасибо, так просто получается..(