Заполнить массив из 10 элементов случайными числами в интервале -10 10 и отсортировать первую половину возрастанию, а вторую по убыванию

Program massivy;
var array1: array [1..10]  of integer;
    i, b:integer;
begin
  for i:=1 to 10 do
    array1[i]:=random(-10, 10);
  for i:=1 to 4 do begin
    for b:=1 to 4 do
      if array1[b] > array1[b+1] then
        swap(array1[b], array1[b+1]);
  end;
  for i:=5 to 9 do begin
    for b:=5 to 9 do
      if array1[b] < array1[b+1] then
        swap(array1[b], array1[b+1]);
  end;
  for i:=1 to 10 do
    writeln(array1[i]);
end.

Питон не учил (учил си шарп, плюс плюс, и паскаль), но принцип такой:

24/3=8 (нашли значение для цикла)

присваиваем переменной значение 0 (это делается до цикла) (далее эта переменная a), затем создаем цикл в котором и будит все программа (он повторяется 8 раз).

a+=3 или a=a+3, ну это как там у вас в питоне)

это действие повторяется каждый цикл (8 раз)

далее мы заранее созданной переменной ещё до цикла присваиваем значение 1.

Затем мы каждый цикл присваиваем этой переменной значение b=b*2

И потом выводим b на экран вместе с a и подписью "часа".

В паскале это выгядело бы так:

begin

a:=0;

b:=1;

for i:=1 to 8 do

begin

 a:=a+3;

 b:=b*2;

 Writeln (b,"_за_",a,"_часа");

end;

end.

Var
 K:array[1..2,1..13]  of integer;
 i,j,ind,x,y:integer;
 MAX:real;
 function RAST(x1,x2,y1,y2:integer):real;
  begin
   RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  end;
begin
 MAX:=-2*sqr(-10-1);
 randomize;
 writeln('Исходные точки:');
 for j:=1 to 13 do
  begin
    writeln('Точка № ',j,', с координатами(X,Y)');
    for i:=1 to 2 do 
      begin
        K[i,j]:=random(110) - 10;
        write(K[i,j],'  ');
      end;
    writeln;
   end;
 for i:=1 to 13 do
   if RAST(0,K[1,i],0,K[2,i])>MAX
    then
      begin
         MAX:=RAST(0,K[1,i],0,K[2,i]);
         x:=K[1,i];
         y:=K[2,i];
         ind:=i;
      end;
writeln('Номер точки: ',ind,'  Координаты: ',x,' ; ',y);
end.