блок схема в паскале по сделанной программе

{Strizhevskii Artem BTP-12}
program kursach;
uses crt;
var
 n:integer;
 A:array[1..32] of byte;
 i:byte;
begin
  clrscr;
  for i:=1 to 32 do A[i]:=0;
  writeln;
  write('vvedite chislo d intervale -2147483648..2147483647_= ');
  readln(n);
  if n<0 then
  begin
  A[1]:=1;
  n:=-n;
  end;
  i:=32;
  repeat
    A[i]:=n mod 2;
    n:=n div 2;
    i:=i-1;
  until (n<1)or(i=1);
 
  writeln;
  writeln('Dvoichnii kod:');
  for i:=1 to 32 do begin
    if (i-1) mod 8 = 0 then write(' ');
    write(A[i]);
    end;
 
  writeln;
  writeln('Obratnii kod:');
  if A[1]=1 then
    for i:=2 to 32 do
      if A[i]=1 then
      A[i]:=0
      else
      A[i]:=1;
 
    for i:=1 to 32 do begin
      if (i-1) mod 8 = 0 then
      write(' ');
      write(A[i]);
      end;
 
  writeln;
  writeln('Dopolnitelnii kod:');
  if A[1]=1 then
      begin
      A[i]:=A[i]+1;
      for i:=32 downto 2 do
        if (A[i]>1) then
         begin
          if (i>2) then A[i-1]:=A[i-1]+1;
          A[i]:=0;
          end;
      end;
      for i:=1 to 32 do begin
       if (i-1) mod 8 = 0 then
       write(' ');
       write(A[i]);
      end;
    readln;
end.