Задача с массивом..., Определить эл-ты делящиеся на 4... Опции

[ghost]

В массиве B(20) определить элементы, делящиеся на 4 без остатка, и сформировать из них новый массив C, подсчитав количество таких
элементов и минимальный и максимальный среди них.

Помогите решить задачу, пожалуйста.

[ghost]

Спасите меня с блок схемой плз, никак не получается

Uses crt;
const maxn=200;
Var        b,c:array [1..maxn] of integer;
  min,max,i,j,error:integer;
  next: LongInt;
  Again, ToDo: Boolean;
 Var n: Integer;
 label e1;
begin
  clrscr;
    gotoxy  (12,10);
   writeln ('Данная программа задаёт массив А, выбирает из него числа');
    gotoxy  (15,11);
   writeln ('кратные 4 и создаёт из этих чисел новый массив С. ');
    gotoxy  (19,13);
   writeln ('Элементами вашего массива должны быть');
    gotoxy  (20,14);
   writeln ('целые числа от -32768 до 32767.');
    gotoxy  (12,16);
   writeln ('текст');
    gotoxy  (27,17);
   writeln ('текст');
    gotoxy  (18,19);
   writeln ('Нажмите любую клавишу для продолжения');
    readkey;

e1:
Again := True;
clrscr;
 repeat
   write('Сколько эл-ов вы хотите обработать? (Кол-во эл-ов от 2 до 200!!!)');
   {$I-}
   readln(n);
   error:=ioresult;{$I+}
   IF (n<2) or (n>maxn) OR (ERROR<>0)
   then  writeln ('Ошибка! Кол-во эл-ов от 2 до 200!');
 until (n >= 2) and (n <= maxN) AND (ERROR=0);
  clrscr;
While Again Do
 Begin
  clrscr;
   writeln ('Вводите целые числа в диапозоне от -32768 до 32767');
   writeln ('Массив А');
 Begin
 For i:=1 to n do
   Repeat
     {$I-} readln(next); {$I+}
     ToDo := False;
     If (next < -32768) or (next > 32767) Then
       Writeln('Введённое вами число вне диапозона (-32768 .. 32767). Повторите ввод!')
     Else If IOResult <> 0 Then
              Writeln('Введён неверный формат. Повторите ввод!')
            Else
              Begin
                b[i] := next; ToDo := True
              End;
   Until ToDo;

 clrscr;
   writeln ('Массив А');
 For i:=1 to n do
   write(b[i]:5);
   writeln;
 End;

    gotoxy (1,5);
   writeln ('Массив C');
     j:=0;
 For i:=1 to n do
begin
 If b[i] mod 4=0 then
begin
 inc(j);
  c[j]:=b[i];
   If j=1 then
       begin
       max:=c[j];
       min:=c[j];
       end
       else
       begin
       If c[j]<min then min:=c[j];
       If c[j]>max then max:=c[j];
       end;
end;
end;
writeln;
If j>0 then
begin
For i:=1 to j do
  write(c[i]:5);
  writeln;
  writeln('Всего элементов ',j);
  writeln('max=',max,' min=',min);
end
else
  writeln('Нет элементов кратных 4');

   writeln('Вы хотите сделать ещё один массив? y/n');
   case UpCase(readkey) of
   #89:goto e1;
   #121:goto e1;
   #78: exit;
   #110: exit;
   end;
End; { While Again }
end.