Определите сколько раз встречается самое малое число в массиве A(1:30)​

Program Massive;

uses Crt;

const

  M = 6;

var

  D: array [1..M] of real;

  i: integer;

  sum: real;

  indexMax: integer;

begin

    ClrScr;

    Randomize;

    writeln ('Massive:');

    indexMax := 1;

    D[1] := 10;

    D[1] := D[1] - Random(20);

    writeln (D[1]);

    for i:= 2 to M do

    begin

         D[i] := 10.0;

         D[i] := D[i] - Random(20);

         writeln (D[i]);

         if (D[i] > D[indexMax]) then

         begin

         indexMax := i;

         end;

    end;

    writeln ('indexMax = ', indexMax);

    sum := 0;

    for i:= indexMax + 1 to M do

      if (D[i] < 0) then sum := sum + D[i];

    writeln ('Sum = ', sum);

    readln

end.

Program fantscrin;

 const n = 10;

 Var a: array [1..n] of integer;

     i,j,k:integer; s:real;

Begin

 for i:=1 to n do

   a[i]:=random(20)-10;

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   for j:=1 to n-1 do

     if (a[j]<a[j+1]) then

                      begin

                       k:=a[j];

                       a[j]:=a[j+1];

                       a[j+1]:=k;

                      end;

 writeln('');

 for i:=1 to n do

   write(a[i], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.