Необходима блок схема для программы

program Kurs;
 
uses Crt;
 
const Bin: array[0..7] of string[3]=
('000','001','010','011',
'100','101','110','111');
 
var
sign:char;
oct1,oct2,bin1,bin2,res:string;
fil:text;
 
function BINtoDK(o:string):string;forward;
 
function BinOct(s2:string):string;
var s8,v,d:string;
i:integer;
begin
s8:='';
for i:=1 to (length(s2) mod 3 +1) do
 s2:='0'+s2; {если число не состоит из полных триад, то дополняем его ведущими нулями}
 
while length(s2) > 2 do
 begin
  v:=copy(s2,length(s2)-2,3); {вырезаем из числа триаду (набор из трех символов)}
  i:=0;
   while v<>Bin[i] do
    inc(i); {выбираем из массива номер соответствующего элемента}
  str(i,d);
  s8:=d+s8; {непосредственно формируем число}
  delete(s2,length(s2)-2,3);
 end;
BinOct:=s8;
end;
 
function OctBin(s8:string):string;
var s2:string;
i:integer;
begin
s2:='';
for i:=1 to length(s8) do
 s2:=s2+Bin[ord(s8[i])-48]; {используя массив перехода переводим цифру в двоичную}
s2:=copy(s2,pos('1',s2),length(s2)-pos('1',s2)+1);
OctBin:=s2; {выводим число без ведущих нулей}
end;
 
function Plus(o1,o2:string;sum:boolean):string;
var c,t,i:byte;
o3:string;
begin
o3:='';
c:=0;
 
for i:=length(o1) downto 1 do
begin
t:=(ord(o1[i])-48)+(ord(o2[i])-48)+c;
c:=t div 2;
t:=t mod 2;
o3:=chr(t+48)+o3;
end;
 
if (c=1) and sum then
 o3:='1'+o3;
 
if (c=0) and not sum then
 begin
  o3:=BINtoDK(o3);
  o3:='-'+o3;
 end;
 
  Plus:=o3;
end;
 
function BINtoDK(o:string):string;
var oo,t:string;
i:byte;
begin
oo:=o;
 
 for i:=1 to length(oo) do
  if oo[i]='1' then
   oo[i]:='0'
  else
   oo[i]:='1';
 
t:='1';
while length(t)<length(oo) do
 t:='0'+t;
 
oo:=plus(oo,t,true);
 
BINtoDK:=oo;
end;
 
 
begin
assign(fil,'input.txt');
reset(fil);
readln(fil,res);
close(fil);
 
assign(fil,'output.txt');
rewrite(fil);
 
writeln(fil,res);
writeln(fil);
 
oct1:=copy(res,1,pos(' ',res)-1);
delete(res,1,pos(' ',res));
sign:=res[1];
delete(res,1,2);
oct2:=res;
res:='';
 
writeln(fil,'OCT1= ',oct1);
writeln(fil,'OCT2= ',oct2);
writeln(fil);
 
bin1:=octbin(copy(oct1,pos('-',oct1)+1,length(oct1)));
bin2:=octbin(copy(oct2,pos('-',oct2)+1,length(oct2)));
 
while length(bin1)<length(bin2) do
 bin1:='0'+bin1;
while length(bin2)<length(bin1) do
 bin2:='0'+bin2;
 
if oct1[1]='-' then
 writeln(fil,'BIN1= -',bin1)
else
 writeln(fil,'BIN1= ',bin1);
 
if oct2[1]='-' then
 writeln(fil,'BIN2= -',bin2)
else
 writeln(fil,'BIN2= ',bin2);
 
writeln(fil);
 
if sign='+' then
 begin
  if (oct1[1]<>'-') and (oct2[1]<>'-') then
   res:=Plus(bin1,bin2,true);
 
  if (oct1[1]='-') and (oct2[1]='-') then
   res:='-'+Plus(bin1,bin2,true);
 
  if (oct1[1]<>'-') and (oct2[1]='-') then
   begin
   bin2:=BINtoDK(bin2);
   writeln(fil,'BIN2_DK= ',bin2);
   res:=Plus(bin1,bin2,false)
  end;
 
  if (oct1[1]='-') and (oct2[1]<>'-') then
   begin
   bin1:=BINtoDK(bin1);
   writeln(fil,'BIN1_DK= ',bin1);
   res:='-'+Plus(bin1,bin2,false)
  end;
 
 end
else
 begin
 if (oct1[1]<>'-') and (oct2[1]<>'-') then
  begin
  bin2:=BINtoDK(bin2);
  writeln(fil,'BIN2_DK= ',bin2);
  res:=Plus(bin1,bin2,false);
  end;
 
 if (oct1[1]<>'-') and (oct2[1]='-') then
  res:=Plus(bin1,bin2,true);
 
 if (oct1[1]='-') and (oct2[1]<>'-') then
  res:='-'+Plus(bin1,bin2,true);
 
 if (oct1[1]='-') and (oct2[1]='-') then
  begin
  bin1:=BINtoDK(bin1);
  writeln(fil,'BIN1_DK= ',bin1);
  res:=Plus(bin1,bin2,false)
  end;
end;
 
if res[1]='-' then
 while (res[2]='0') and (length(res)>1) do
  delete(res,2,1)
else
 while (res[1]='0') and (length(res)>1) do
  delete(res,1,1);
 
writeln(fil);
writeln(fil,'RESULT_BIN= ',res);
 
if res[1]='-' then
 res:='-'+BinOct(copy(res,2,length(res)))
else
 res:=BinOct(res);
 
writeln(fil,'RESULT_OCT= ',res);
 
close(fil);
 
end.