Составить блок-схему по коду

var b,i,       //b,i - вспомогательные переменные
    s,         //s - сумма чисел в последовательности
    x,         //x - число набранное пользователем
    k:integer; //k - количество положительных чисел в последовательности
    t:string;  //t - требуется для определения способа заполнения последовательности
begin
 repeat
  writeln('Хотите ли Вы задать числа самостоятельно? (да/нет?)');
  readln(t);
 until (t='да') or (t='Да') or (t='ДА') or (t='нет') or (t='Нет') or (t='НЕТ');
 randomize;
 k:=0;
 s:=0;
 for i:=1 to 10 do
 begin
  if(t='да') or (t='Да') or (t='ДА') then 
  begin
   write('Введите число №',i,': ':2);
   readln(x);
  end;
  if(t='нет') or (t='Нет') or (t='НЕТ') then
  begin
   x:=-100+Random(200);
   writeln('Число №',i,'=',x);
  end;
  if(x<0) and (b<>2) then b:=1; // b приравнивается 1, если последнее введенное число было отрицательным
  if(x<0) and (i=1) then b:=2;  // b приравнивается 2, если первое число в последовательности было отрицательным
  if(x>0)then k:=k+1;           // если последнее введенное пользователем число - положительное, то к k прибавляется 1
  if(b=0)then s:=s+x;
 end;
 if b=0 then writeln('Сумма не подсчитана, т.к. в последовательности нет отрицательного числа');
 if b=1 then writeln('Сумма чисел в последовательности до первого отрицательного числа равна: ',s);
 if b=2 then writeln('Сумма не подсчитана, т.к. первое число в последовательности - отрицательное');
 writeln('Количество положительных чисел: ', k);
end.