Помогите, пожалуйста, с информатикой! Задание простое, но не могу понять!

uses crt;const zn:string[8]='01234567';function DecToOct(n:longint):string;var s:string;begins:='';while n>0 do begin s:=zn[n mod 8+1]+s; n:=n div 8; end;DecToOct:=s;end;var d:longint;beginclrscr;write('Число в системе 10=');readln(d);write(' В системе 8 =',DecToOct(d));readlnend.Удачи!