ДАЮ 90 баллов.
Распишите каждый шаг пожалуйста(учителю объяснить надо)

var a:array[1..100] of integer;
i,j,c,k,n:integer;
f:boolean;
begin
writeln('vvedite razmer massiva');
readln(n);
writeln('vvedite el-ty massiva');
for i:=1 to n do
begin write('a[',i,'] = ');readln(a[i]);end;
writeln('massiv');
for i:=1 to n do write(a[i]:4);
writeln;
k:=2;
while k<=n do
begin
c:=a[k];
i:=1;
if c while f do
begin
a[k-i+1]:=a[k-i];
i:=i+1;
f:=false;
if i if c end;
a[k-i+1]:=c;
k:=k+1;
{
for i:=1 to n do write(a[i]:4);
writeln;
}
end;