Помогите решить. Напишите программу формирования массива размером 5х5 с помощью датчика случайных чисел замените в нем значения элементов с четной суммой индексов на значение второго элемента массива из первой строки. Выведите на экран исходный и измененный массив. (Паскаль абс) С объяснением

constn=5;vara:array[1..n,1..n] of integer;i,j:integer;begin//генератор случайных чисел. Диапазон от 1 до 10. for i:=1 to n do  begin  for j:=1 to n do   begin    a[i,j]:=random(10)+1;    write(a[i,j]," ");   end;   writeln();  end;//Проверка условия и переприсвоение, если верно. for i:=1 to n do  for j:=1 to n do   begin    if (((i+j) mod 2)=0) then     a[i,j]:=a[1,2];   end;  //Вывод полученного массива.  for i:=1 to n do  begin  for j:=1 to n do   begin    write(a[i,j]," ");   end;   writeln();  end;//Ожидание.readln();end.