{Пусть найменьший - это min, minn - его номер в массиве }
min2 := high(integer); {очень большое число -- на минимум явно не тянет}
for i := 1 to n do
   if i <> minn {минимальный не нужен}
      and abs(a[i] - min) < min2 then min2 := a[i]

Const
 Vmax = ..;
 Hmax = ..;

Type
 tip = Array [1..Vmax,1..Hmax] of Integer;

Var
 m : tip;

Procedure Sorting;
Var
 i,j,k : Word;
 tt : Array [1..Hmax] of Integer;
Begin
 For i:=1 to Vmax-1 do
   For j:=i+1 to Vmax do
     If m[j,1]>m[i,1] then
     Begin
       For k:=1 to Hmax do tt[k]:=m[j,k];
       For k:=1 to Hmax do m[j,k]:=m[i,k];
       For k:=1 to Hmax do m[i,k]:=tt[k];
     End;
End;

Begin
 {....}
 Sorting;
 {....}
End.