Ошибка: Индекс находился вне границ массива. 32 строка - PascalABC.NET

Формулировка задачи:

CONST
n=10;
VAR mas:array[1..n,1..n] of REAL;
rez: REAL;
x, y: byte;
BEGIN
 Writeln;
 FOR x := 1 To n Do
  BEGIN
   Writeln ('  ',x,' stroka');
     For y := 1 To n Do
      BEGIN Write(y,' stolbec = ');
        Readln (mas[x,y]);
      END; Writeln;
  END;

BEGIN
 Writeln;
  FOR x := 1 To n Do
   BEGIN
    FOR y := 1 To n Do Write (mas[x,y]:3:3,' '); Writeln;
   END;Writeln;
END;

BEGIN
rez := 0;
  FOR x := 1 To n Do
   BEGIN
     FOR y := 1 To n Do
       IF mas[x,y * 2] > 0 Then
        BEGIN
         rez := rez + mas[x,y * 2];
        END;
       Writeln (rez:3:3); rez := 0;
       Writeln;
   END;
End;
 
END.

Решение задачи: «Ошибка: Индекс находился вне границ массива. 32 строка»

Листинг программы

  rez := 0;
  for x := 1 To n Do
  begin
    for y := 1 To n Do
      if (mas[x, y] > 0) and (y mod 2 = 0) Then // проверяем четность индекса
      begin
        rez := rez + mas[x, y];
      end;
    Writeln(rez:3:3); rez := 0;
    Writeln;
  end;

Объяснение кода листинга программы

В данном коде выполняется сложение всех элементов массива, которые имеют неотрицательное значение и четный индекс.

Переменная rez инициализируется значением 0 и используется для хранения суммы элементов.
Первый цикл for проходит по всем элементам массива mas по первому измерению.
Второй цикл for также проходит по всем элементам массива mas, но уже по второму измерению.
Если условие (mas[x, y] > 0) and (y mod 2 = 0) выполняется, то есть элемент имеет неотрицательное значение и четный индекс, то к переменной rez прибавляется значение этого элемента.
После завершения циклов выводится значение переменной rez с помощью функции Writeln.
Значение переменной rez сбрасывается в 0 перед следующим выводом.
После завершения циклов выводится символ новой строки с помощью функции Writeln.