Function Dec2n(dec,n:integer):string;
var
  d:byte;
  ch:char;
  s,sgn:string;
begin
    s:=;
    if declt;0 then begin sgn:=-; dec:=-dec end
    else sgn:=;
    while decgt;0 do
      begin
      d:=dec mod n;
      ch:=Chr(Ord(0)+d);
      s:=ch+s;
      dec:=dec div n
    end;
    Dec2n:=sgn+s
end;

var
  m,n:integer;
begin
  Write(Введитt целое десятичное число и основание для перевода (2-9): );
  Read(m,n);
  Writeln(Dec2n(m,n))
end.

Тестовое решение
25 3
221

-38 9
-42