Помагите ответ нужен с решением. ​

var a:array[1..1000] of integer;

   n,m,i,j,k,jmx,x:integer;

begin

read(n);

for i:=1 to n do

read(a[i]);

m:=0;{количество отсортированных}

i:=1;{начало массива}

while i<n do {пока не конец - 1 }

begin

 jmx:=1; {пусть это пока индекс максимума}

 for j:=1 to n-m do{с начала до уже выставленного на место максимума}

 if a[j]>a[jmx] then jmx:=j;{находим индекс самого макс.}

 x:=a[jmx];{запомним значение}

 for k:=jmx to n-m-1 do {сдвинем на него все не отсортированные элементы}

 a[k]:=a[k+1];

 a[n-m]:=x;{вставим очередной максимум на место}

 m:=m+1; {увеличим количество отсортированных}

 i:=i+1; {идем вперед}

end;

for i:=1 to n do

write(a[i]:4);

end.

Объяснение: