перевод десятичного целого положительного числа в сиситему счисления с основанием 7

Вот сама задача, ее нада сделать)))...
Написать программу перевода десятичного целого положительного числа в сиситему счисления с основанием 7.
СПАСИБО ЗАРАНЕЕ!!!!

const
   N = 7; {поменяйте на нужное число}
var
   x: integer;
   ostatok: integer;
   s: string;
   c: string;
begin
   s:='';
   write('введите десятичное число: ');
   read(x);
   while x >= N do
   begin
      ostatok:=x mod N;
      Str(ostatok, c);
      s:=c+s;
      x:=x div N;
   end;
   
   if x > 0 then begin
      str(x, c);
      s:=c+s;
   end;
   writeln('в системе счисления по основанию ', N, ' это число = ', s);
end.

вывод:

введите десятичное число: 14
в системе счисления по основанию 7 это число = 20