Ввести двузначное целое число х<15. Написать программу перевода его в восьмеричную систему счисления. (Паскаль)

Const zs='01234567'; / / цифры в 8 СС

s:string;

begin

write ('Введите число в 10 СС: ');

readln (n);

s:='';

while n>0 do

begin

s:=zs[n mod 8+1]+s; / / берем остаток от деления на 8 и эту цифру пишем в начало строки

n:=n div 8 / / сокращаем число

end;

write ('Число в 8 СС: ', s);

readln

end.