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

[mig44]

uses
SysUtils,
var
i,j,cur:integer;
sum:real;
a:array[1..10] of real;
begin
//задаём массив
for i:=1 to 10 do
readln(a[i]);
//1ая задача
sum:=a[1];
j:=1;
for i:=2 to 10 do
if sum>a[i] then
begin
sum:=a[i];
j:=i;
end;
writeln('min element= ',sum,' ego nomer - ',j);

//2ая задача
sum:=0;
j:=0;
for i:=10 downto 1 do //посл полож эл-т
if a[i]>0 then
begin
j:=i;
break;
end;
for i:=1 to 10 do //первый полож эл-т
if a[i]>0 then
begin
cur:=i;
break;
end;
for i:=cur to j do
sum:=sum+a[i];
writeln('Summa');
writeln(sum) ;
for i:=1 to 9 do
for j:=i to 10 do
begin
if a[i] <> 0 then
if a[j] = 0 then
begin
a[j]:=a[i];
a[i]:=0;
end;
end;
writeln('Otsortirivan');
for i:=1 to 10 do
writeln(a[i]);
readln;

end.

может кто нибудь максимально подробно описать что здесь происходит?

[Don Karleone]

в первой задаче находится максимальный элемент массива и его индекс
во второй задаче сначала находится индекс последнего положительного эл-та, потом индекс первого положительного эл-та, а потом находится сумма элементов между первым положительным и последним положительным. Ну а в довершении всего проводится какая-то сортировка, которая, если я не ошибаюсь переместит все нулевые эл-ты массива в его начало.