двумерный массив, Заполните двумерный массив нулямиБ измените 1,3,5,7,9 строку на едениц Опции

[bel100]

var aa:array[1..9,1..9]of integer;
i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
if i=1 then
aa[i,j]:=1;
aa[i,j]:=random(0);
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
write(aa[i,j]:3)
end;
writeln
end;
end.
Получается поменять только одну строку, при попытке ввести : if (i=1) and (i=3) then вообще ничего не меняет, кто подскажет ход решения? Пожалуйста.
P.S Пытаюсь учится заочно, если перед глазами есть конкретный пример то всё норм, если нет то....

[Федосеев Павел]

Можно заменять на 1 нечётные строки. Odd(i) равна true при нечётном i.

program test;

const
  N = 9;
type
  TArray = array[1..N, 1..N] of integer;

var
  i, j: integer;
  A: TArray;
begin
  {заполните массив нулями}
  for i := 1 to N do
    for j := 1 to N do
      A[i, j] := 0;
  {1,3,5,7,9 строку на единицы}
  for i := 1 to N do
    if odd(i) then
      for j := 1 to N do
        A[i, j] := 1;
  {вывод результата}
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(A[i, j]: 2);
    writeln;
  end;
end.

[bel100]

Можно заменять на 1 нечётные строки. Odd(i) равна true при нечётном i.

program test;

const
  N = 9;
type
  TArray = array[1..N, 1..N] of integer;

var
  i, j: integer;
  A: TArray;
begin
  {заполните массив нулями}
  for i := 1 to N do
    for j := 1 to N do
      A[i, j] := 0;
  {1,3,5,7,9 строку на единицы}
  for i := 1 to N do
    if odd(i) then
      for j := 1 to N do
        A[i, j] := 1;
  {вывод результата}
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(A[i, j]: 2);
    writeln;
  end;
end.

Спасибо за подсказку , пытался решать когда ещё не дошёл до пользовательских типов и констант.... Сейчас должно всё получиться