Язык Pascal. Заменить в массиве все элементы кратные 3 заменить на 10 и вывести полученный массив на экран​

Const     n = 6;     m = 7; var     a: array[1..n,1..m] of integer;     i,j,k,mm,b: integer; begin randomize; writeln('исходный массив: '); 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; writeln('отсортированный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               mm: =j;               if i mod 2 = 0 then                     begin                     for k: = j+1 to m do                             if a[i,mm] > a[i,k] then mm: =k                     end               else                     for k: = j+1 to m do                             if a[i,mm] < a[i,k] then mm: =k;               b: =a[i,mm];               a[i,mm]: =a[i,j];               a[i,j]: =b;               write(a[i,j]: 3,' ')               end;       writeln       end end. пример работы программы: исходный массив:   9  -5    6    0  -9    0    9   3  -9  -4  10  -8  10    3   -2    1    2    3    3    0  10 -10    1    8  -3  -4  -3    4   -9  -7  -3  -9    2  -1  -3   7 -10  10  -3    4  10    0 отсортированный массив:   9    9    6    0    0  -5  -9   -9  -8  -4    3    3  10  10   10    3    3    2    1    0  -2 -10  -4  -3  -3    1    4    8   2  -1  -3  -3  -7  -9  -9 -10  -3    0    4    7  10  10