решить! буду благодарен

Const     n = 4; var     a: array[1..n,1..n] of integer;     i,j,k: integer; begin randomize; writeln('1)'); k: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j] < 0 then k: =k+1;               end;       writeln       end; writeln('k = ',k); writeln('2)'); for i: = 1 to n do       begin       for j: = 1 to n do               begin               if j > i then a[i,j]: =100;               write(a[i,j]: 3,' ')               end;       writeln       end; writeln('3)'); for i: = 1 to n div 2 do       begin       for j: = 1 to n do               begin               k: =a[i+n div 2,j];               a[i+n div 2,j]: =a[i,j];               a[i,j]: =k;               end       end; for i: = 1 to n do       begin       for j: = 1 to n do               write(a[i,j]: 3,' ');       writeln       end; end. 1)   10    2  -9    4 -10    5  -5 -10   4    9    4  10   3  -9  10  -6 k = 6 2)   10 100 100 100 -10    5 100 100   4    9    4 100   3  -9  10  -6 3)   4    9    4 100   3  -9  10  -6   10 100 100 100 -10    5 100 100