Объяснение каждого оператора для чего он служит

Program massiv;
Uses crt;
Const n=5;
Var A:array[1..n] of integer;
i,i1,i2,j:integer;
Begin
Clrscr;
For i:=1 to n do
begin
write('Vvedite ',i,' element iz ',n,' : ');
readln(A[i]);
end;
Writeln;
i1:=1;
i2:=n;
while i1<>i2 do
begin
if A[i1]=0 then
begin
for j:=i1 to i2-1 do
A[j]:=A[j+1];
A[i2]:=0;
i2:=i2-1;
end
else
i1:=i1+1;
end;
For i:=1 to n do
Write(A[i]:3);
Readkey;
End.

Program massiv; //название программы
Uses crt;  //подключаемый модуль
Const n=5; //константа n 
Var A:array[1..n] of integer; //делаем целочисленный ассив
i,i1,i2,j:integer; //целочисленные переменные
Begin
Clrscr; //очистка экрана
For i:=1 to n do //начало цикла
begin //тело цикла
write('Vvedite ',i,' element iz ',n,' : ');
readln(A[i]); //считываем каждый элемент массива
end; //конец цикла
Writeln; //здвигаем курсов на 1 строку вниз
i1:=1;//присваеваем начение i1
i2:=n;//присваеваем знчение i2
while i1<>i2 do //цикл "пока i1не равно i2"
begin// тело цикла
if A[i1]=0 then //условие
begin
for j:=i1 to i2-1 do // цикл
A[j]:=A[j+1]; //изменяем значение a[j]
A[i2]:=0; //обнуляем a[i2]
i2:=i2-1; //присваеваем новое значение
end //конец
else
i1:=i1+1; //елси условие не выолнено то делать этот оператор
end;
For i:=1 to n do //цикл с выводом всего массива с форматом
Write(A[i]:3);
Readkey; //ждем нажатия клавиши
End.

if A[i1]=0 then
begin
for j:=i1 to i2-1 do
A[j]:=A[j+1];
A[i2]:=0;

For i:=1 to n do
begin
write('Vvedite ',i,' element iz ',n,' : ');
readln(A[i]);
end;

write('Vvedite elementu');
For i:=1 to n do
readln(A[i]);