Дана квадратная матрица порядка n(n=5). получить элементы массива x, равные среднему арифметическому чётных элементов очередного столбца.паскаль

// pascalabc.net 3.0, сборка 1066 const   n=5; var   a: array[1..n,1..n] of integer;   x: array[1..n] of double;   i,j,k: byte; begin   randomize;   writeln('*** исходный массив ***');   for i: =1 to n do begin       for j: =1 to n do begin           a[i,j]: =random(51)-25;           write(a[i,j]: 4)           end;       writeln   end;   writeln('*** массив x ***');   for j: =1 to n do begin       x[j]: =0; k: =0;       for i: =1 to n do           if a[i,j] mod 2=0 then begin               x[j]: =x[j]+a[i,j]; inc(k)           end;       if k> 0 then x[j]: =x[j]/k;       write(x[j]: 0: 5,' ')       end;   writeln end. тестовое решение: *** исходный массив ***   -10  18  -8 -15    5   -21 -18    6  -2    9   -7  22  -4    3  14   21  16 -10 -18  -9   17    3 -14 -18  12 *** массив x *** -10.00000 9.50000 -6.00000 -12.66667 13.00000

хзхзхзззззхзхзхзхзхзхзхзхззхзхз