Вывести сначала элементы матрицы с четными индексами, а потом с нечетными

program a1;
uses crt;
const N=10;
var
a:array [1..N,1..N] of integer;
i,j:integer;
begin
for j:=1 to N do
for i:=1 to N do
read(a[j,i]);
write('Элементы с четными иднексами: ');
writeln;
for j:=1 to N do
for i:=1 to N do
if (i mod 2=0) and (j mod 2=0) then
write(a[j,i],' ');
writeln;
writeln('Элементы с нечетными идексами: ');
writeln;
for j:=1 to N do
for i:=1 to N do
if (i mod 2<>0) and (j mod 2<>0) then
write(a[j,i],' ');
readln;
end.

uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,n,m:longint;
begin
   clrscr;
   write('Строки: ');
   readln(n);
   write('Cтолбцы: ');
   readln(m);
   for i:=1 to n do
      for j:=1 to m do
         readln(a[i,j]);
   for i:=1 to n do
      for j:=1 to m do
      begin
         write(a[i,j],' ');
         if j mod m = 0 then
            writeln;
      end;
   writeln;
   writeln('Четные индексы :');
   for i:=1 to n do
      for j:=1 to m do
         if not odd(i) and not odd(j) then
            write(a[i,j],'[',i,',',j,']',' ');
   writeln;
   writeln('Нечетные индексы :');
   for i:=1 to n do
      for j:=1 to m do
         if odd(i) and odd(j) then
            write(a[i,j],'[',i,',',j,']',' ');
end.