Дана квадратная матрица А порядка n

Найти матрицу B=A^m где m целое число

Вычислить сумму отрицательных элементов полученной матрицы расположенных под ее главной диогональю в столбцах с счетными номерами

Program p1;
   Var A,B:array [1..10, 1..10] of Real;
Begin
   Writeln ('введите размерность матрицы');
   Readln (n);
   Writeln (Введите степень матрицы');
   Readln (m);
      For i=1 to n do
         Begin
            Writeln ('Введите',n,'ую строку матрицы, ставя "" между ее элементами');
             For j=1 to n do
                Read (A[i,j]);
              Readln;
            End;
        For k=1 to m do
           Begin
              For i=1 to n do
                 For j=1 to n do
                    Begin
                       B[i,j]:=0;
                          For s=1 to n do
                            B [i,j]:=B[i,j]+a[i,s]*a[s,j];
                     End;
         For i=1 to n do
            For j=1 to n do
              A[i,j]:=B[i,j];
         End;
          S:=0;
      For i=1 to n do
          Begin
                  For j=1 to n do
                     Begin
                         If(i<j)and(j div 2=0)and(B[i,j]<0) then s:=s+B[i,j];
                         Write(B[i,j],' ');
                   End;
                Readln;
          End;
       Writeln('сумма искомых элементов',s);
Readln;
End.