Нужно подробно расписать что делается на данном участке программы

FOR j:=1 TO N DO
  BEGIN
    MAX :=A[1];
    FOR I :=1 to N-(J-1)DO
    IF (A[I]>= MAX) THEN BEGIN
    MAX:=A[I];
    K:=I;
    END;
    R := A[N-(J-1)];
    A[N-(J-1)]:= MAX;
    A[k]:= r;
    END;

PROGRAM MASSIVE;
USES CRT;
VAR I,K,J,N,R,P, MAX: INTEGER;
   SRED: REAL;
  VAR A : array [1..100] of integer;
  BEGIN
  CLRSCR;
  WRITE(' Razmer massiva : n = ');
  READLN(N);
  WRITELN(' Chisla');
  FOR i :=1 TO N DO
  BEGIN
  WRITE(' A[', I , ']=');
  READLN (A[I]);
  END;
  FOR j:=1 TO N DO
  BEGIN
    MAX :=A[1];
    FOR I :=1 to N-(J-1)DO
    IF (A[I]>= MAX) THEN BEGIN
    MAX:=A[I];
    K:=I;
    END;
    R := A[N-(J-1)];
    A[N-(J-1)]:= MAX;
    A[k]:= r;
    END;
  SRED:=0;
  P:=0;
  WRITELN (' Sortirovka');
  FOR I := 1 TO N DO
    BEGIN
      WRITE (A[I],' ');
      IF A[I] MOD 5 = 0 THEN
      SRED:=SRED+A[I];
      IF A[I] MOD 5 = 0 THEN
      P:=P+1;
    END;
  SRED := SRED/P;
  writeln;
  WRITELN (' SREDNEE ZNACHENIE= ', SRED:4:2 );
  READKEY;
 END.

FOR j:=1 TO N DO // N раз выбираем максимум и ставим его в начало
BEGIN
MAX :=A[1]; //инициализируем максимум первым элементом
FOR I :=1 to N-(J-1)DO
IF (A[I]>= MAX) THEN BEGIN
MAX:=A[I]; // если нашли число больше текущего максимума, то изменим значение максимума и индекса максимума
K:=I;
END;
R := A[N-(J-1)]; // Поменяем местами найденный максимум и последнюю незаполненную ячейку
A[N-(J-1)]:= MAX;
A[k]:= r;
END;