Contoh Baru codingan array dengan nilai minimal dan maksimal

program nilai_terbesar_dengan_mencari_nilai_max;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  larik = array [1..10] of integer;

  var
    a : larik ; //array tdk bisa di rubah saat program berjalan
    i,max,min : integer;
begin
  //input
  for I := 1 to 10 do
   begin
  write('masukkan nilai array ',i,': ');
  readln(a[i]);
   end;
  writeln('--------------------------------------------');
    //output
    for I := 1 to 10  do
      writeln ('nilai array ke :',1,'adalah :',a[i]);

    //mencari nilai maksimal dan minimal
    max := a[1];
    min := a[1];
      for I := 2 to 10 do
        begin
          if a[i] > max then
          max := a[i];
          if a[i] < min then
          min := a[i];

        end;
      writeln ;
      writeln ('nilai terbesar adalah : ',max);
      writeln;
      writeln('nilai terkecil adalah :',min);
   readln;
end.