ДАЮ 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;

var a:array[1..100] of integer; //объявляем целочис. массив из 100 элементовi,j,c,k,n:integer; //целочислительные переменныеf:boolean;// логические переменныеbegin // начало программыwriteln('vvedite razmer massiva'); //выводим текстreadln(n); //вводим переменную nwriteln('vvedite el-ty massiva'); //выводим текстfor i:=1 to n do  //повторить n разbegin write('a[',i,'] = ');readln(a[i]);end;{отвратный кодстайл. В данном цикле заполняем массив n количеством элементов. Как будто нельзя было объявить динамический массив}writeln('massiv');       //вывод текстаfor i:=1 to n do write(a[i]:4);  //выводим n элементов массиваwriteln; //сносим строчкуk:=2; //k=2while k<=n do //пока k меньше или равно n выполнятьbegin //начало тела циклаc:=a[k]; //с=a[k]i:=1;     //i=1if c while f do //ОШИБКА, странное сочетание логического оператора и цикла с предусловиемbegin //начало тела вложенного цикла, объявленного ошибочноa[k-i+1]:=a[k-i]; {элементу массива a, индекс которого равен k-i+1 присваивается элемент массива a, индекс которого равен k-i, по сути, это просто сдвих массива на один элемент}i:=i+1; //увеличение i на 1f:=false; //f=ложьif i if c end; //ОШИБКА, совсем упоротое сочетание условных операторовa[k-i+1]:=c; {элементу массива a, индекс которого равен k-i+1 присваивается c}k:=k+1; //k увеличивается на 1{                  //комментарий как у меняfor i:=1 to n do write(a[i]:4); //снова вывод от 1 до n элементов массиваwriteln; //сноска строки}end; //выход из вложенного цикла//нет выхода из основного цикла//нет завершения программы//Абсолютно нерабочий код//Сожгите автора как ведьму