Определить, все ли числа из массива А лежат в указанном диапазоне

program minmax;
 
const
  n = 9;
 
var
  min, max, i, k: integer;
  S: array[1..n] of integer;
 
begin
  randomize;
  for i := 1 to n do 
  begin
    S[i] := random(20) - 5;
  end;
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    write(S[i]:3);
  end;
  writeln;
  max := 1; min := 1;
  for i := 1 to n do 
  begin
    if S[min] > S[i] then min := i;
    if S[max] < S[i] then max := i;
  end;
  for i := 1 to n do 
  begin
    k := S[max];
    S[max] := S[min];
    S[min] := k;
  end;
  writeln('Полученный массив: ');
  for i := 1 to n do
  begin
    write(S[i]:3);
  end;
  writeln;
end.

(*определить, все ли числа из массива А лежат в указанном диапазоне.*)
Program S9;
 
Const
    N = 10;{Длина массива}
    
Var
    A:Array[0..N] Of Integer;
    i,min,max:Integer;
    Yes:Boolean;
Begin
    {записываем в массив числа с клавиатуры}
    For i:=0 To N Do
        ReadLn(A[i]);
    {вводим диапозон}
    WriteLn('Please enter range (min..max):');
    ReadLn(min,max);
    If Max > Min Then
        Begin
    For i:=0 To N Do
        If A[i] In [min..max] Then
            Yes:=True
        Else
            Begin
                Yes:=False;
                Break;
            End;
        End
    Else
        WriteLn('ERROR! Max < Min!!!');
    If Yes Then
        WriteLn('TRUE')
    Else
        WriteLn('FALSE');
    ReadLn;
End.