найти количество и сумму минимальных элементов одномерного массива. В 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;...