Квадратную матрицу, размерности не более 20, вывести на экран. Элементы — целые…

uses crt; var a: array[1… 20,1… 20] of integer; i,j,n: integer; beginrandomize; read (n); for i: =1 to n dobegin for j: =1 to n do begin a[i,j]: =random (101) -50; write (a[i,j]: 4); end; writeln; end; end.