обьясните

program lab2;
uses crt;
const n = 20;
var
a : array[1..n] of byte;
b : array[1..n] of byte;
c : array[1..n] of byte;
i, j, k, h, g : byte;
begin
j := 1;
k := 1;
randomize;
writeln('массив A');
for i := 1 to n do
begin
a[i] := random(20);
write(a[i]:4)
end;
writeln;
writeln('массивы B и С');
for i := 1 to n do
if i mod 2 <> 0 then
begin
b[j] := a[i];
j:=j+1;
h := j
end
else
begin
c[k] := a[i];
k:=k+1;
g := k
end;
for j := 1 to h-1 do
write(b[j]:4);
writeln;
for k := 1 to g-1 do
write(c[k]:4);
writeln
end.

program lab2;
uses crt;
const n = 20;
var a : array[1..n] of byte; //полный массив
    b,c : array[1..n div 2] of byte; //половинчатые
    i : byte;
begin
randomize;
writeln('массив A');
for i := 1 to n do
 begin
  a[i] := random(20);//создаем исходный массив
  write(a[i]:4);
  if odd(i) then b[(i+1) div 2]:=a[i]//с нечетными индексами  в В
  else c[i div 2]:=a[i] //с четными в С
 end;
writeln;
writeln('массивы B и С');
for i := 1 to n div 2 do
write(b[i]:4);
writeln;
for i := 1 to n div 2 do
write(c[i]:4);
end.