Напишите процедуру, которая выводит на экран переданное ей число в системе счис-ления, которая задается вторым параметром (от 2 до 10). Помогите срочно!

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!procedure DecToP(n,p:integer);{ Перевод из десятичной системы в систему по основанию p }begin  var s:='';  while n>0 do begin    s:=n mod p+s;    n:=n div p    end;  Writeln(s)end;begin  var (n,k):=ReadInteger2('Введите число и основание системы счисления:');  if k.Between(2,10) then DecToP(n,k)  else Writeln('Основание системы счисления вне [2;10]');end.