найти количество и сумму минимальных элементов одномерного массива. В 1-ом примере ответ 2 и -40.

Сам алгоритм:
...
k:=0; 
s:=a[1];
min:=a[1];
for i:=2 to n do begin
   if min=a[i] then begin
     k:=k+1;
     s:=s+min;
   end;
   if min>a[i] then begin
     k:=1;
     min:=a[i];
     s:=a[i];
   end;
end;
...