mencari nilai

program mencari_nilai_nn;

var
nilai : array[1..10] of integer;
i,j : byte;
max, min, rata2 : integer;
begin
  for i:= 1 to 10 do
  begin
  write('nilai ke-',i,' : '); readln(nilai[i]);
  end;
 for i:= 1 to 10 do
 begin
 if max > nilai[i+1] then
    max:= max
 else
 max:= nilai[i];
 end;
 min := 0;
 for i := 1 to 10 do
 begin
 if min < nilai[i] then
 min := min
 else
 min := nilai[i];
 end;

 writeln('nilai terbesar = ',max);
 writeln('nilai terkecil = ',min);
  for i := 1 to 10 do
 begin
 if (nilai[i] >= 80) then
 writeln(nilai[i],'--> lulus')
 else
 writeln(nilai[i],'--> tidak lulus');
    end;
 readln;

end.