Паскаль. Квадратную матрицу, размерностью не более 11…

Program Zadacha; var matriza: array[1… 11, 1… 11] of integer; i, j: integer; Begin randomize; for i: =1 to 11 do for j: =1 to 11 do matriza[i][j]: =random (10); for i: =1 to 11 do begin for j: =1 to 11 do Write (matriza[i][j], '); WriteLn ('); end; ReadLn; End.