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

 const maxn=100;
 type mas=array[1..maxn]of integer;
 var b,a:mas;   //b,a - массивы
     n,         //n - размерность массива а, вводится пользователем
     i,j,       //i,j - вспомогательные переменные 
     k:integer; //k - размерность массива b, вычисляется в процессе выполнения программы
begin
 randomize;
 repeat //цикл repeat until используется для того, чтобы не позволить пользователю ввести некорректные данные
  write('Введите размер массива от 2 до ',maxn,' n='); 
  readln(n);
 until n in [2..maxn];
 writeln('Массив А:');
 for i:=1 to n do
  begin //Заполняем массив случайными числами от 0 до 500
   a[i]:=random(500);
   write (a[i]:4);
  end;
 writeln();
 j:=0;
 for i:=1 to n do
  begin
  if (a[i]>220) then //проверяется, если элемент массива А с индексом i больше 220
   begin
    inc(j);    //увеличивается количество элементов массива B на 1
    b[j]:=a[i];//элементу массива B с индексом j присваивается значение элемента массива А с индексом i 
   end;
  end;
 k:=j;
 if k>0 then //проверяет, был ли образован массив, если да, то выводит его
 begin
 writeln('Массив B, образованный из элементов массива А, которые больше 220:');
 for i:=1 to k do
  write(b[i]:4);
 end
 else //если нет, то пользователю об этом сообщается
 writeln('Массив B образовать не удалось, т.к. в исходном массиве нет чисел больше 220');
end.