Составить программу, которая находит максимальный и минимальный элемент массива

Program z;
  var  a: array[1..100] of integer;
         i, n, min, max: integer;
Begin
   writeln('введите n');
   readln(n);
   writeln('введите ',n,' элементов массива');
   for i:=1 to n do
        read(a[i]);
   min:=a[1];
   max:=a[1];
   for i:=1 to n do
       begin
         if a[i]>max then max:=a[i];
         if a[i]<min then min:=a[i];
       end;
   writeln('min=',min,' max=',max);
   readln
end.

program z1;
 var a:array [1..5] of integer;
 s,i:integer;
Begin 
  s:=0;
  randomize;
  for i:=1 to 5 do
        a[i]= random(40);
  for i:=1 to 5 do
            write(a[i,j],' ');
    for i:=1 to 5 do
       if a[i,j] mod 5 = 0 then
         s:=s+a[i,j];
   if s=0 then writeln('нет элементов кратных 5');
            else
                writeln('summa =',s);
     readln
end.

program z2;
 var a:array [1..5] of real;
 s,i,e:integer;
Begin 
  s:=0;
writeln('введите е');
readln(e);
 
 
  for i:=1 to 5 do
        a[i]= (2*i-1)/2^i;
  for i:=1 to 5 do
            write(a[i,j],' ');
    for i:=1 to 5 do
       if e <= abs(a[i]) then
         s:=s+a[i];
   if s=0 then writeln('нет элементов больше или равных по модулю ',e);
            else
                writeln('summa =',s);
     readln
end.