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

uses
    crt;
const
    a: string[10] = '0123456789';
var
    n: real;
    rez, s, s2, s3: string;
    t, cc, ind, k: integer;
procedure Del(var ss: string);
var
    i: integer;
begin
ind := 0;
s2 := '';
    for i := 1 to length(ss) do
        if ss[i] in [',', '.'] then
        begin
        ind := i;
        break
        end
        else
        s2 := s2 + ss[i];
        s3 := '';
           if ind <> 0 then
           begin
           delete(s, 1, ind);
           s3 := ss;
           end;
    end;
function Cel(d: real; c: integer): string;
var
    s: string;
    n2: integer;
begin
n2 := round(int(d));
s := '';
    repeat
        s := ((a[n2 mod c + 1]) + s);
        n2 := n2 div c;
    until (n2 = 0);
Cel := s;
end;
function Drob(d: real; t, c: integer): string;
var
    s: string;
    l2, k, n3: real;
    i, l: integer;
begin
k := d - int(d);
s := '';
i := 0;
    if t <> 0 then
    begin
        repeat
          l2 := k * c;
          k := frac(l2);
          s := s + a[round(int(l2)) + 1];
          inc(i);
        until i = t;
    end
    else
    s := '0';
    Drob := s;
end;
begin
ClrScr;
cc:=8;
write('ввод числа в 10-й СС: ');
readln(n);
str(n,s);
Del(s);
write('Введите точность: ');
readln(t);
if ((n - round(int(n))) = 0) then
    rez := Cel(n, cc)
    else
    rez := Cel(n, cc) + ',' + Drob(n, t, cc);
  writeln('Число ',n,' в 8-й системе счисления:=',rez);
write('число - ', n,' точность - ',t);
end.

uses
    crt;
var
    t: integer;
procedure rec(var t: integer);
var t1: integer;
begin
  if t>0 then
  begin
  t1:=t div 8;
  rec(t1);
  write(t mod 8);
  end;
end;
 
begin
ClrScr;
write('ввод числа в 10-й СС: ');
readln(t);
rec(t);
end.