В двумерном массиве поменять знаки элементов всех парных рядов

var
    mass : Array Of Array Of ShortInt;
    n, i, j : Byte;
 
begin
    Randomize;
    Write('Input n='); ReadLn(n);
    SetLength(mass, n);
    for i := 0 to n-1 do
    begin
        SetLength(mass[i], n);
        for j := 0 to n-1 do
        begin
            mass[i, j] := Random(6 * n + 1) - 3 * n;
            Write(mass[i, j]:3, '  ');
        end;
        WriteLn;
    end;
    i := 1;
    while (i <= n-1) do
    begin
        for j := 0 to n-1 do
            mass[i, j] := -mass[i, j];
        Inc(i, 2);
    end;
    WriteLn; WriteLn;
    for i := 0 to n-1 do
    begin
        for j := 0 to n-1 do
            Write(mass[i, j]:3, '  ');
        WriteLn;
    end;
end.

var
    mass : Array Of Array Of ShortInt;
    n, i, j : Byte;
 
begin
    Randomize;
    Write('Input n='); ReadLn(n); //вводим размерность
    SetLength(mass, n); //задаём количество строк
    for i := 0 to n-1 do //для каждой строки
    begin
        SetLength(mass[i], n); //задаём количество столбцов
        for j := 0 to n-1 do //для каждого элемента строки
        begin
            mass[i, j] := Random(6 * n + 1) - 3 * n; //рандомим значение
            Write(mass[i, j]:3, '  '); //выводим его
        end;
        WriteLn;
    end;
    i := 1;
    while (i <= n-1) do //пока не за границами размерности массива
    begin
        for j := 0 to n-1 do //по всей длине строки
            mass[i, j] := -mass[i, j]; //меняем знак
        Inc(i, 2); //переходим через строку
    end;
    WriteLn; WriteLn;
    for i := 0 to n-1 do
    begin
        for j := 0 to n-1 do
            Write(mass[i, j]:3, '  '); //выводим полученный массив
        WriteLn;
    end;
end.