Алгоритм и блок схема по коду

Здравствуйте. Суть задания проста нужно написать алгоритм и блок схему по коду. Жду предложений по цене 
Код исполнен на делфи: 

{$APPTYPE CONSOLE} 
var 
  A: array of Integer; 
  N, M, Sum, i: Integer; 
  V, Vars: Cardinal; 
  S: String; 
  
begin 
  repeat 
    Write('Введите N (кол-во чисел, от 2 до 32): '); 
    ReadLn(N) 
  until N in [2..32]; 
  SetLength(A, N); 
  Write('Введите число M (искомое значение): '); 
  ReadLn(M); 
  Write('Введите ', N, ' чисел от 1 до 9 в одну строку без разделителей (или пустую строку для генерации случайных чисел): '); 
  ReadLn(S); 
  Randomize; 
  for i := 1 to N do 
    if (Length(S) >= i) and (S[i] in ['1'..'9']) then A[i-1] := Ord(S[i])-Ord('0') 
    else A[i-1] := Random(9)+1; 
  
  if N <> 1 then Write('+'); 
        Write(A[i-1]) 
      end 
      else Write('-', A[i-1]); 
      WriteLn(' = ', M) 
  end 
  else WriteLn(#13'Данная последовательность чисел не позволяет получить указанное значение с помощью операций сложения и вычитания.') ;
ReadLn
end.