Дан двумерный массив размерностью Nх2N, заполненный целыми числами. Найти среднее арифметическое элементов, (программа Паскаль)

USES Crt;
 CONST   N=5;
 VAR
   H:ARRAY[0..N,0..2*N] OF INTEGER;
   I,J,K:BYTE;   S:LongInt;   SA:REAL;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO 2*N DO Begin
       H[I,J]:=Random(23);   Write(H[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Нахождение суммы значений элементов, имеющих четные номера строк }
   I:=2; K:=0;
   WHILE I<=N DO Begin
     FOR J:=1 TO 2*N DO Begin
       S:=S+H[I,J];   Inc(K);
     End;     I:=I+2;
   End;
   SA:=S/K;
   Write(' Среднее арифметическое элементов, имеющих четные номера строк =',SA:4:1);
 END.