Дано натуральное число. Вывести восьмеричное представление этого числа- Pascal(Паскаль)

var
  a: longint;
  b: byte;
  s: string;

begin
  write('входное число (в десятичной форме): ');
  readln(a);
  write('основание системы счисления для вывода (от 2 до 10): ');
  readln(b);
  s := '';
  while a > 0 do
  begin
    s := Chr(a mod b + 48) + s;
    a := a div b
  end;
  if s = '' then
    s := '0';
  writeln(s);
  readln

end.