Блок-схема к коду задачи

program lab6;
 
var a,b,i,n,x,y:integer;
    mas:array[1..100] of integer;
begin
  repeat
    write('n = ');
    readln(n);
  until (n<=100);
  repeat
    writeln('введите a и b, a<b:');
    readln(a, b)
  until (a < b);
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      mas[i]:=a+random(b-a+1);
      write(mas[i]:3);
    end;
  writeln;
  writeln('Отрицательные элементы массива:');
  for i := 1 to n do
    if mas[i]<0 then write(mas[i]:3);
  writeln;
  writeln('Неотрицательные элементы массива:');
  for i := 1 to n do
    if mas[i]>=0 then write(mas[i]:3);
  writeln;
    x:=0;
    for i:=1 to n do
    if mas[i]>0 then
    x:=x + mas[i];
      y:=0;
      for i:=1 to n do
      if mas[i]<0 then
      y:=y + mas[i];
    writeln('Сумма отрицательных чисел равна ', y);
    writeln('Сумма положительных чисел равна ', x);
  
  readln;
end.