Дан массив из 100 целых чисел. найти сумму 10 самых маленьких чисел. 20 !

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(100,-99,99); a.Println;
  Writeln('Сумма 10 самых маленьких чисел ',a.Sorted.Take(10).Sum)
end.

Пример
-61 91 33 86 -69 88 -86 60 -78 -63 -30 -39 -33 24 -94 -11 -26 18 59 -9 -82 50 9 28 -34 -8 5 46 59 25 -19 92 -1 93 50 -33 -94 -19 -26 -43 21 -54 -27 -59 80 -95 12 2 -23 93 99 -30 44 -51 61 -12 -18 -94 20 39 -16 -32 -98 -4 55 -22 61 -26 73 39 -16 93 -55 3 69 72 -23 -31 48 -38 79 -96 -30 65 26 -88 -51 -49 -68 -38 84 -99 60 34 72 -46 -55 77 -15 2
Сумма 10 самых маленьких чисел -926

1. Сначала посмотри на название статьи, параграфа, брошюры и т. д.
2. Вспомни и запиши все, что ты знаешь или только слышал по этой теме. Можешь записать и свои предположения.
3. Обменяйся информацией с приятелем.
4. Составляется коллективный «банк предложений».
5. Прочитай текст, делая пометки карандашом.

 - уже знал;

 + - новая для меня информация;
 - - думал иначе;
  ? - не понял, есть вопросы.
6. Текст прочитан. Вернитесь к первоначальным записям. Какие подтвердились? Какие предположения оказались ложными? Какие не нашли подтверждения?
7. Чтобы превратить информацию в знания, необходимо проговорить и осмыслить прочитанное.
Этапы стратегии IDEAL
I — Выделите в тексте проблему. Какую главную проблему должны решить герои?
D -- Опишите ее (выявите ее суть).Какой важной информацией снабдил вас автор?
Е - Определите варианты подходов к. решению проблемы. Каковы на ваш взгляд три главных решения проблемы?
А-- Действуйте (решайте). Какой из выбранных вами наилучший?
L — Сделайте вывод, проведите рефлексию своей работы. 
. 

что-то типа этого:

const n = 8, m = 8;
var
    A: array[1..n,1..m] of integer;
    i, j, sum, product: integer;
    isnotnull: boolean;
begin
    randomize;
    writeln('Случайная матрица:');    for i:=1 to n do begin
        for j:=1 to m do begin
            A[i,j] := random(51) - 25;
            write(A[i,j]:5);
        end;
        writeln;
    end;    sum := 0;
    for i:=1 to n do
        if A[i,n-i+1] < 0 then
            sum := sum + A[i,n-i+1];
    writeln('Сумма отрицательных элементов побочной диагонали = ', sum);    product := 1;
    isnotnull := False;
    for i:=1 to n-1 do
        for j:=2 to n do
            if (j > i) and (A[i,j] <> 0) then begin
                isnotnull := True;
                product := product * A[i,j];
            end;
    if isnotnull
        writeln('Произведение ненулевых элементов в области выше главной диагонали = ', product)
    else
        writeln('Ненулевых элементов в области выше главной диагонали нет.', product);    readln;
end.