Перевести число

var
    decimal: word;
    bin_oct: byte;
 
function binary_octal(decimal:word;bin_oct:byte):string;
begin
    if (bin_oct <> 2) and (bin_oct <> 8) then
        write('Error')
    else
        while decimal > 0 do begin
            binary_octal := chr(ord('0') + (decimal mod bin_oct)) + binary_octal;
            decimal := decimal div bin_oct
        end;
end;
 
begin
    write('Decimal: ');
    readln(decimal);
    write('Binary or octal (2,8): ');
    readln(bin_oct);
 
    writeln(binary_octal(decimal,bin_oct));
 
readln
end.

function Dec2Sex(Dec : String) : String;
begin
  Result := '';
  var t := Dec;
  repeat
    var u : String := '';
    var p := 0;
    foreach var v in t do
      begin
        p := p * 10 + StrToInt(v);
        u += (p div 6);
        p := p mod 6;
      end;
    t := u.TrimStart('0');
    Result := p + Result;
  until t = '';
end;
 
begin
  var Dec := ReadLnString('Не отрицательное число в 10 СС :');
  if Dec.Count(c->Not Char.IsDigit(c)) > 0 then begin 'Ошибка!'.Print;Halt;end;
  $'В 6 СС : {Dec2Sex(Dec)}'.Print;
end.