Nilai Maksimal dan Minimal dengan array

Pascal dan Lazarus Sedikit tentang program di dalam pascal atau lazarus untuk menghitung nilai maksimal dan minimal dengan menggunakan array....!!!!

program Array;
uses crt;
 
var

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

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