Program Pascal MakMin

Program Pascal mencari nilai Maksimum dan Minimum dari sebuah kumpulan nilai, dimana type data yang digunakan adalah array (Larik).
Berikut Source codenya:

uses crt;
var
i,jum :integer;
data :array[1..10]of integer;
min,max :integer;
total : real;
begin
clrscr;
write('Jumlah Data = ');readln(jum);
for i:=1 to jum do
begin
write('data ke ',i,' : ');readln(data[i]);
end;
min:=9999 ;
max:=-9999;
total:=0;
for i:=1 to jum do
begin
if max if min>data[i] then min:=data[i];
total:=total+data[i];
end;
clrscr;
for i:=1 to jum do
writeln(data[i]);
writeln('Minimum = ',min);
writeln('Maksimum = ',max);
writeln('Rata-rata = ',total/jum:5:2);
readln;
end.