1.найти минимальный по модулю элемент массива

x= 2 1 0 -1
0 2 1 0
3 -2 2 0

2. Используя программу ранжирования, найти сумму 3-х наибольших по модулю элементов массива:
T=(-1,2,1,1,-4,0,2,5,3,-2,1)
Распечатать массив до и после ранжирования.

1)program test;var  a:array[1..12] of integer;  i,min:integer;begin  for i:=1 to 12 do begin    readln(a[i]);    a[i]:=abs(a[i]);    if i=1 then min:=a[i]    else if a[i]<min then min:=a[i];  end;  writeln(min);end.2)uses Crt ;var   A            : array [ 1 .. 100 ] of integer ;   c            : integer ;   i , j , N    : ShortInt ;begin     ClrScr ;     Write ( 'Количество элементов массива = ' ) ;     ReadLn ( N ) ;     WriteLn ( 'Ввод массива' ) ;     for i := 1 to N do         Read ( A [ i ] ) ;                  A[i]:=abs(A[i]);     WriteLn ;     //Сортировка пузырьком//     for i := 1 to N - 1 do begin         for j := N downto i + 1 do begin             if A [ j ] < A [ j - 1 ]             then             begin                  c := A [ j ] ; A [ j ] := A [ j - 1 ] ; A [ j - 1 ] := c ;             end ;                      end;              end;     for i:=n-2 to n do writeln(A[i]);end .