Сформировать и вывести на печать массив Е (10), элементы которого принадлежат интервалу [-100;100]. В массиве Е найти наименьший по модулю элемент, вывести его индекс, подсчитать количество элементов кратных 5 — Pascal(Паскаль)

{ наименьший по модулю элемент }
uses crt;
var
    a : array [1..100] of integer;
    i, n, min, pos : integer;
begin 
clrscr;
    writeln(' n = ');
    readln(n);
        for i := 1 to n do
         begin
          writeln(' a[', i ,'] = ');
          readln( a[i] );
         end;
        writeln(' Is mas -->> ');
        for i := 1 to n do
            write(a[i],'  ');
        writeln;
            min := abs( a[1] );
            for i := 1 to n do
                if abs( a[i]) < min then 
                    min:=abs(a[i]);
            writeln(' |min| = ', min);  
readkey;
end.

{ найти индекс }
uses crt;
var
    a : array [1..100] of integer;
    i, n, min, pos : integer;
begin 
clrscr;
    writeln(' n = ');
    readln(n);
        for i := 1 to n do
         begin
          writeln(' a[', i ,'] = ');
          readln( a[i] );
         end;
        writeln(' Is mas -->> ');
        for i := 1 to n do
            write(a[i],'  ');
        writeln;
            min := 1;
            for i := 1 to n do
                if abs( a[i]) < min then 
                begin
                    min:=i;
                end;    
            writeln(' Index |min| = ', min);  
readkey;
end.

{ колво кратных 5}
uses crt;
var
    a : array [1..100] of integer;
    i, n, kolvo, pos : integer;
begin 
clrscr;
    writeln(' n = ');
    readln(n);
        for i := 1 to n do
         begin
          writeln(' a[', i ,'] = ');
          readln( a[i] );
         end;
        writeln(' Is mas -->> ');
        for i := 1 to n do
            write(a[i],'  ');
        writeln;
           kolvo:=0;
           for i:=1 to n do
               if a[ i ] mod 5 = 0 then 
                 inc(kolvo);
            writeln(' Kolvo = ', kolvo);  
readkey;
end.