помогите с программой (паскаль)

[LutaR]

Написать программу преобразования N-разрядного числа из восьмеричной системы счисления в десятичную. В результате вывести на экран исходное N-разрядное восьмеричное число и преобразованное в десятичную форму записи.

чет я вообще не могу понять, что от меня хотят

[ОДИНОЧЕСТВО В СЕТИ]

FUNCTION OCT2DEC(OCT: STRING): LONGINT;

CONST
OCTSet: SET OF CHAR = ['0'..'7'];

VAR
J    : LONGINT;
Error: BOOLEAN;
DEC  : LONGINT;

BEGIN
DEC := 0;
Error := False;
FOR J := 1 TO Length(OCT) DO
BEGIN
IF NOT (UpCase(OCT[J]) IN OCTSet) THEN Error := True;
DEC := DEC + (Ord(OCT[J]) - 48) SHL ((Length(OCT) - J) * 3);
{ 8^N = 2^(N * 3) }
{ N SHL ((Length(OCT) - J) * 3) = N * 8^(Length(OCT) - J) }
END;
IF Error THEN OCT2DEC := 0
ELSE OCT2DEC := DEC;
END;

[NeshSoft]

PS не успел...

[LutaR]

спасибо большое!