Одномерный массив

[M@rgo]

Нужна помощь!!!!!! Помогите подробно написать работу программы, что и как выполняет каждый оператар:

Дан массив размера N (N-четное число). Поменять местами первую и вторую половины массива.

var n,i,half,temp: integer;
A:array[1..100] of integer;
begin
write('Enter size of massive:'); readln(N);
if(N mod 2 <> 0)then
begin
writeln('N must not be ODD number!');
exit;
end;
for i:=1 to n do
begin
A[i]:=random(100);
end;
writeln;
writeln('Befor:');
for i:=1 to N do
writeln('A[',i,']=',A[i]);
half:=n div 2;
for i:=1 to half do
begin
temp:=A[i];
A[i]:=A[i+half];
A[i+half]:=temp;
end;
writeln('After');
for i:=1 to N do
writeln('A[',i,']=',A[i]);
end.

[Mad_Cat]

http://programmersforum.ru/showpost....40&postcount=7