"Поскаль двухмерный массив". дан целочисленный двумерный массив N x M. сформировать новый массив сочтоящий из противоположных соответствующих элементов

Const   N = 3;   M = 4;Var   A:array[1..N,1..M] of integer;   B:array[1..M,1..N] of integer;   i,j:integer;BeginWriteLn('А: ');For i:= 1 to N do    Begin    For j:= 1 to M do        Begin        A[i,j]:=random(21)-10;        Write(A[i,j]:3,' ')        End;    WriteLn    End;WriteLn('Б: ');For i:= 1 to M do    Begin    For j:= 1 to N do        Begin        B[i,j]:=A[j,i];        Write(B[i,j]:3,' ')        End;    WriteLn    End;End.