Перевести целое число n из двоичной системы счисления в 8-ричную

program arifmettika;
uses crt;
var
   perv,vspom,res:string;
   g:byte;
Begin
clrscr;
write('vvedi chislo v dwoichnoj SS-');
readln(perv);
res:='';
vspom:='';
while length(perv)<>0 do
 
  begin
    vspom:=copy(perv,3,length(perv)-2);
    val(vspom,g);
    case g of
    001: insert('1',res,1);
    010: insert('2',res,1);
    011: insert('3',res,1);
    100: insert('4',res,1);
    101: insert('5',res,1);
    110: insert('6',res,1);
    111: insert('7',res,1);
    end;
    delete(perv,3,length(perv)-2);
    delete(vspom,3,1);
  end;
write('perevedennoe chislo=',res);
readln;
end.

uses crt;
const trd:array[0..7] of string[3]=('000','001','010','011',
                                    '100','101','110','111');
var s2,s8:string;
    i:integer;
    c:char;
begin
clrscr;
{ввод числа}
s2:='';
writeln('Введите число в 2 системе счисления, окоечание ввода Enter:');
repeat
c:=readkey;
if c in ['0','1'] then
 begin
  write(c);
  s2:=s2+c;
 end;
if c=#13 then writeln;
until c=#13;
{перевод в СС 8}
while length(s2) mod 3 <> 0 do s2:='0'+s2;
//дополняем строку влево до длины, кратной 3
s8:='';
while s2<>'' do
 begin
  for i:=0 to 7 do
  if copy(s2,1,3)=trd[i] then s8:=s8+chr(i+48);
  {сравниваем с массивом значений для перевода
  и записываем найденное значение в строку S8}
  delete(s2,1,3);{удаляем триаду}
 end;
writeln('Число в 8 системе счисления:');
write(s8);
readln
end.

program arifmettika;
uses crt;
var
   perv,vspom,res:string;
   g:byte;
Begin
clrscr;
write('vvedi chislo v dwoichnoj SS-');
readln(perv);
res:='';
vspom:='';
while length(perv)>0 do
    begin
    if length(perv)<3 then begin
    val(perv,g);
    case g of
    1: insert('1',res,1);
    10: insert('2',res,1);
    11: insert('3',res,1);
    100: insert('4',res,1);
    101: insert('5',res,1);
    110: insert('6',res,1);
    111: insert('7',res,1);
    end ;
    delete(perv,1,(length(perv)));
    end
    else begin
     vspom:=copy(perv,(length(perv)-2),3);
     val(vspom,g);
     case g of
    0: insert('0',res,1);
    1: insert('1',res,1);
    10: insert('2',res,1);
    11: insert('3',res,1);
    100: insert('4',res,1);
    101: insert('5',res,1);
    110: insert('6',res,1);
    111: insert('7',res,1);
     end;
    delete(perv,(length(perv)-2),3);
    delete(vspom,1,3);
    end;
    end;
 
write('perevedennoe chislo=',res);
readln;
end.