работа со строками

[qasw]

ввести число . вывести строку , представляющую собой запись этого числа в восьмеричной системе исчисления . на языке паскаль 7.0

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

function IntToOct(Value: Longint; digits: Integer): string;
 var
   rest: Longint;
   oct: string;
   i: Integer;
 begin
   oct := '';
   while Value <> 0 do
   begin
     rest  := Value mod 8;
     Value := Value div 8;
     oct := IntToStr(rest) + oct;
   end;
   for i := Length(oct) + 1 to digits do
     oct := '0' + oct;
  IntToOct:= oct;
 end;