Задан двумернный массив вевести на экран элементы больше 20

Var a: array[1..10,1..10] of integer; i,j: integer; begin { здесь надо задать массив. как пример случайного массива:   for i: =1 to 10 do   for j: =1 to 10 do     begin     a[i,j]: =random(10)+1;     end; }   for i: =1 to 10 do   for j: =1 to 10 do     begin     if a[i,j]> 20 then write(a[i,j])     end; end.

// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   for var j: =0 to m-1 do a[1,j]: =5; a.println(4) end. пример количество строк в массиве: 6 количество столбцов в массиве: 8 *** исходный массив [6,8] ***     9  -3 -27 -90  43 -54    0 -49   -2  91 -12 -10 -21  19  52    5   26  41  79  98  91 -50  87 -50   -23 -24 -63  17 -59  75 -43 -62   -27 -13  93    2 -58 -43 -22 -90     5  94  90 -26  81  46    5 -12     9  -3 -27 -90  43 -54    0 -49     5    5    5    5    5    5    5    5   26  41  79  98  91 -50  87 -50   -23 -24 -63  17 -59  75 -43 -62   -27 -13  93    2 -58 -43 -22 -90     5  94  90 -26  81  46    5 -12