Запиши название 2 переменных ,которые использовала Айым​

Массив: 1, 2, 5, 8, 9, 3, 4, 0, 7, 6 
j = 5
A[j]<A[j-1] ⇒ A[5]<A[4] ⇒ 3<9 ⇒ true (истина)
 ⇒ t = A[5] = 3; A[5] = A[4] = 9; A[4] = 3; j = j-1 = 5-1 = 4
массив: 1, 2, 5, 8, 3, 9, 4, 0, 7, 6 
A[j]<A[j-1] ⇒ A[4]<A[3] ⇒ 3<8 ⇒ true (истина)
 ⇒ t = A[4] = 3; A[4] = A[3] = 8; A[3] = 3; j = j-1 = 4-1 = 3
массив: 1, 2, 5, 3, 8, 9, 4, 0, 7, 6 
A[j]<A[j-1] ⇒ A[3]<A[2] ⇒ 3<5 ⇒ true (истина)
 ⇒ t = A[3] = 3; A[3] = A[2] = 5; A[2] = 3; j = j-1 = 3-1 = 2
массив: 1, 2, 3, 5, 8, 9, 4, 0, 7, 6 
A[j]<A[j-1] ⇒ A[2]<A[1] ⇒ 3<2 ⇒ false (ложь)
ответ: j=2

Uses Crt;
  const n=5; m=7;
  type Mas = array [1..n, 1..m] of integer;
  var i, j, j1, j2: integer;
      Sumj1, Sumj2: real;
      A: Mas;
begin
 ClrScr;
 Randomize;
 SumJ1:=0; SumJ2:=0;
 for i:=1 to n do
    for j:=1 to m do
    A[i,j]:=random (10);
 WriteLn (' Massiv A: ');
 for i:=1 to n do
   begin
      for j:=1 to m do
      Write (A[i,j]:4);
      WriteLn;
   end; WriteLn;
 repeat
   Write (' Stolbez #1 = ');    ReadLn(j1);
 until (j1>=1) and (j1<=m);
 repeat
   Write (' Stolbez #2 = '); ReadLn(j2);
 until (j2>=1) and (j2<=m) and (j1<>j2);
 for i:= 1 to n do
    SumJ1 := SumJ1+A[i,j1];
 for i:= 1 to n do
   SumJ2:=SumJ2+A[i,j2];
 SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; 
WriteLn;
WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2);
WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); 
ReadLn;
end.