var ToDo: Boolean;
...
Repeat
  inc(i);

  repeat
    ToDo := False;
    readln(b[i]);
    If {условие, накладываемое на b[i], не выполняется} then 
      begin
        writeln('TRY once more!'); ToDo := True
      end;
  until ToDo;

Until i>=20;

Var
  {Вводим данные в тип LongInt, как более емкий по сравнению с Integer}
  next: LongInt;
...
i := 0;
Repeat
 inc(i);

 repeat

   (* Отключаем реакцию на ошибки ввода-вывода, читаем значение, и включаем
   контроль снова (при выключенном контроле ввод буквы вместо числа приведет
   к тому, что в переменную IOResult запишется код ошибки, но аварийного останова
   не произойдет) *)

   {$I-} readln(next); {$I+}
   ToDo := False
   If (next < -32768) or (next > 32767) Then
     Writeln('Number not in range -32768 .. 32767. Try once more!')
   Else If IOResult <> 0 Then
            Writeln('Wrong format was entered. Try once more!')
          Else
            Begin
              b[i] := next;
              { Только здесь можно быть уверенным, что не было ошибки
              при вводе данных и число находится в требуемом диапазоне.
              Тогда присваиваем очередной элемент массива введенному
              числу и переходим к след. элементу.}

              ToDo := True;
            End;
 until ToDo;

Until i>=20;

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

Again := True;
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('Number not in range -32768 .. 32767. Try again!')
      Else If IOResult <> 0 Then
               Writeln('Wrong format was entered. Try again!')
             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]:4);
   writeln;
   writeln('Всего элементов ',j);
   writeln('max=',max,' min=',min);
end
else
   writeln('Нет элементов кратных 4');

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

if not ((next > -32768) and (next < 32767)) then

const n=20;

Uses crt;
const maxN=200; { можно и больше }
Var        b,c:array [1..maxN] of integer;
  min,max,i,j:integer;
  next: LongInt;
  Again, ToDo: Boolean;

Var n: Integer;
begin
  repeat
    write('n = '); readln(n)
  until (n >= 2) and (n <= maxN);
  clrscr;
  ... { далее - без изменений }
end.

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.