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

var s1:string;

N,a:integer;

BEGIN

write('Введите число в 10-ой системе счисления: ');

readln(N);

write('Введите новое основание системы счисления: ');

readln(a);

s1:='';

while N<>0 do begin

if N mod a<=9 then s1:=inttostr(N mod a) + s1;

N:=N div a;

end;

write('Число в новой системе счисления: ');

writeln(s1);

end.