Программа паскал для перевод числа из десятичной системы в другую

Предыдущий
вопрос Следующий
вопрос

program ConvertNumber;

var
number, base, remainder: integer;
result: array[1..100] of integer;
i: integer;

begin
write('Enter the number to convert: ');
readln(number);
write('Enter the base you want to convert to: ');
readln(base);

i := 1;
while number > 0 do
begin
remainder := number mod base;
result[i] := remainder;
number := number div base;
i := i + 1;
end;

writeln('The converted number is: ');
for i := i - 1 downto 1 do
begin
if result[i] < 10 then
write(result[i])
else
write(chr(55 + result[i]));
end;
end.