Подсчитать сумму отрицательных элементов в векторе.Поменять местами максимальный и минимальный элементы в матрице.

Type
   T=Record
       X:Real;
       XI:Integer;
       XJ:Integer;
end;
Const N=10;
        M=10;
Var
   Min, Max:T;
   Arr: Array[1..N, 1..M] of Real;
   I,J:Integer;
begin
.
.
.
Min.X:=Arr[1,1];
Min.XI:=1;
Min.XJ:=1;
Max.X:=Arr[1,1];
Max.XI:=1;
Max.XJ:=1;
 
For I:=1 to N do
     For J:=1 to N do
     begin
        If X[I,J]<Min.X then
                         begin
                             Min.X:=Arr[I,J];
                             Min.XI:=I;
                             Min.XJ:=J;
                          end;
        If X[I,J]>Max.X then
                          begin
                             Max.X:=Arr[I,J];
                             Max.XI:=I;
                             Max.XJ:=J;
                          end;
     end;
{Нашли максимальный и минимальный элементы и их индексы,
  теперь их надо поменять местами}
 
Arr[Max.XI,Max.XJ]:=Min.X;
Arr[Min.XI,Minm.XJ]:=Max.X;
.
.
.
.
end.