Отсортируйте массив в порядке убывания методом "выбора" и преобразуйте его в квадратную матрицу

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Math;
   var mas: array[1..50] of integer;
    N: Real;
begin
  Randomize;
  for i: = 1 to 50 do
  mas[i]:=Random(50);
  write(mas);
 for j: = 1 to N-1 do
begin { öèêë ïî ÷èñëó "ïðîõîäîâ" }
k:= N-j+1; { k - íîìåð ïîñëåäíåãî ýëåìåíòà â ïðîâåðÿåìîé ÷àñòè ìàññèâà }
m:= k; { m - íîìåð ýëåìåíòà ñ íàèáîëüøèì çíà÷åíèåì }
for i:= 1 to N-j do {öèêë ñðàâíåíèÿ ýëåìåíòîâ â îñòàâøåéñÿ ÷àñòè ìàññèâà}
if x[i] > x[m] then m: = i; { çàïîìèíàåì çíà÷åíèå "m" }
b:= x[k]; x[k]:= x[m]; x[m]:= b { ïåðåñòàâëÿåì ýëåìåíòû }
end;
 
 
 
for j:= 1 to N-1 do { öèêë ïî ÷èñëó "ïðîõîäîâ" }
for i:= 1 to N-j do { öèêë ñðàâíåíèÿ ýëåìåíòîâ â îñòàâøåéñÿ ÷àñòè ìàññèâà }
if x[i] > x[i+1] then
begin { çàïîìèíàåì çíà÷åíèå x[i] è }
b:=x[i]; x[i]:=x[i+1]; x[i+1]:=b
end; { ïåðåñòàâëÿåì ýëåìåíòû }
 
j:= 0;
repeat j:= j+1; pr:= 0; { pr - ïðèçíàê íåîáõîäèìîñòè "ïðîõîäà" }
for i:= 1 to N-j do {öèêë ñðàâíåíèÿ ýëåìåíòîâ â ïðîâåðÿåìîé ÷àñòè ìàññèâà}
if x[i] > x[i+1] then begin pr:= 1; { èçìåíÿåì çíà÷åíèå ïðèçíàêà }
b:=x[i]; x[i]:=x[i+1]; x[i+1]:=b end; { ïåðåñòàâëÿåì ýëåìåíòû }
until pr = 0;
 
 
for i := 2 to N do begin { öèêë ïî ÷èñëó øàãîâ }
b:=x[i]; {çíà÷åíèå ýëåìåíòà, ñëåäóþùåãî çà îòñîðòèðîâàííîé ÷àñòüþ ìàññèâà}
j:= 1;
while b > x[j] do j:= j+1; { îïðåäåëåíèå íîìåðà j äëÿ âñòàâêè ýëåìåíòà}
for k:=i downto j+1 do x[k]:=x[k-1]; { óâåëè÷åíèå èíäåêñîâ ýëåìåíòîâ }
x[j]:= b { âñòàâêà çíà÷åíèÿ b íà ìåñòî j - ãî ýëåìåíòà }
end;
end.