Program Nilai Maksimal dan Minimal dengan array

program Array;
uses crt;
  var

 Jum, I, Y, Max, Min :integer;
  rata                            : real;
  X                               : array [1..100] of integer;

begin
clscr;
   write('Masukkan Batas Array : '); readln(Y);
   Jum:=0;
 writeln('===SILAKAN MASUKKAN NILAI====');
 for I:=1 to Y do
 begin
 write('Bilangan ke-',I,': '); readln(X[I]);
 Jum:=Jum + X[I];
end;
 Rata:= Jum/y;
 Max := X[I];
 Min := X[I];
 For i:= 1 to Y do
 Begin

if X[I] > max then max := X[I];
 if X[I ] < min then min := X[I];

end;
writeln;
writeln('=============HASIL PENGELUARAN==============');
writeln;
 writeln('Jumlah Data  adalah       : ',Jum);
 writeln('Rata - rata Jumlah adalah : ',Rata:0:2);
 writeln('Nilai Maksimalnya adalah  : ',Max);
 writeln('Nilai Minimalnya adalah   : ',Min);
 writeln;

 writeln('===========================================');
 writeln;

 readln;
end.

demikian syntak dari program nilai maksimal dan minimal dengan array.,
dan inilah hasil dari program waktu di jalankan