Найти максимальный и минимальный элемент массива

var
   A:array of Integer;
   ArrayLength, i:Word;
   Sum:LongInt=0;
   max,min:Word;
begin
 {1}
     Write('Размер массива = ');
     Readln(ArrayLength);
     dec(ArrayLength);
     SetLength(A,ArrayLength);
 
     for i:=0 to ArrayLength do
     begin
       Write('Введите элемент ',i+1,' = ');
       ReadLn(A[i]);
     end;
  {2}
     for i:=0 to ArrayLength do Sum+=A[i];
     WriteLn('Сумма = ',Sum);
  {3}
     max:=0;
     min:=0;
     for i:=1 to ArrayLength do
     begin
       if A[max]<A[i] then max:=i;
       if A[min]>A[i] then min:=i;
     end;
     WriteLn('Максимальный элемент #',max,' = ',A[max]);
     WriteLn('Минимальный  элемент #',min,' = ',A[min]);
  {4}
     Writeln('Введённый массив:');
     for i:=0 to ArrayLength do Write(A[i],' ');
 
     Readln;
end.