Упорядочить элементы матрицы по убыванию

const n=33;
var a:array[1..n] of real;
i,k,m:integer;
d,max:real;
begin 
randomize;
for i:=1 to n do
begin
 a[i]:=random(16)-7;
 write(a[i],'');
end;

const n=33;
var a:array[1..n] of real;
i,k,m,j,kk:integer;
d,max,x:real;
begin 
randomize;
for i:=1 to n do
begin
 a[i]:=random(16)-7;
 write(a[i],'  ');
end;
writeln;
d:=0;
k:=0;
For i:=1 to n do
    begin
       d:=d+A[i];
       k:=k+1;
       end;
       d:=d/k;
writeln('среднеквадратичное первой четверти массива   ',d:6:2);
begin
for i:=kk+1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Нечетные по убыванию:');
for i:=1 to n do
write(a[i]:4);
readln
end;
end.

var a:array[1..n,1..n] of iinteger;

var a:array[1..n] of iinteger;

sk:=0;
for i:=1 to n do
sk:=sk+sqr(a[i]-d);
sk:=sk/n;

const n=33;
var a:array[1..n] of real;
    i,k:integer;
    d,min,x:real;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=-7+14*random;
  write(a[i]:6:2);
  if i mod (n div 3)=0 then writeln;
 end;
writeln;
write('Введите число для сранения x=');
readln(x);
k:=0;
for i:=2*n div 3+1 to  n do
if a[i]<0 then
if k=0 then
 begin
  k:=1;
  min:=abs(a[i]-x);
  d:=a[i];
 end
else if abs(a[i]-x)<min then
 begin
  min:=abs(a[i]-x);
  d:=a[i];
 end;
if k=0 then write('В последней трети массива нет отрицательных чисел')
else
 begin
  writeln('Наиболее близкое отрицательное число к числу ',x:0:2);
  write('в последней трети массива=',d:0:2);
 end;
 
end.