Program olah_array (ke-3, dengan menentukan nilai min, max)

program olah_array;
uses wincrt;
var i,n, total,min,max: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);

min:= 9999;
for i:=1 to n do
begin
if min>nilai[1] then
min:=nilai[i];
end;

max:= -9999;
for i:=1 to n do
begin
if max max:= nilai[i];
end;
writeln('Nilai Tertinggi: ', max);
writeln('Nilai Terendah: ', min);
end.