Представлений код - для розв’язку задачі сортування елементів масиву, який складається з 6 елементів, за зростанням. Завдання: змініть код таким чином, щоб сортування відбувалось за спаданням. varForm1: TForm1;i:integer;a: array [0. . 5] of integer=(4, 9, 2, 0, 1, 8);procedure TForm1. Button1Click(Sender: TObject);beginfor i:=0 to 5 domemo1. lines[i]:=inttostr(a[i]);end;procedure TForm1. Button2Click(Sender: TObject);var j, min, n, buf, imin : integer;beginn:=6;for i := 0 to n-1 dobeginmin := a[i];imin := i;for j := i+1 to n dobeginif a[j] < min thenbeginmin := a[j];imin := j;end;end;buf:=a[i];a[i]:=min;a[imin] := buf;end;for i:= 1 to n doMemo2. Lines[i] := IntToStr(a[i]);end;end.