Сортировка массива

begin
writeln('введите высоту массива a=');
readln(a);
writeln('введите длинну массива b=');
readln(b);
writeln('введите ширину массива c=');
readln(c);
writeln('введите элементы массива x');
    for i:=1 to a do
        for j:=1 to b do
            for k:=1 to c do
    begin
        write('x[',i,',',j,',',k,']= ');
        readln(x[i,j,k]);
    end;
    end;

uses crt;
const n=10;
type mass=array [1..n] of integer;
var x:mass; i,k,m,j:integer;
begin
     for i:=1 to n do
                      begin
                       x[i]:=random (40)-20;
                       write (x[i],' ');
                      end;
     writeln;
     for i:= n  downto 2 do
                         begin
                          k:=i;
                          m:=x[i];
                          for j:= 1  to i-1 do
                                  if x[j]>m then
                                              begin
                                                 k:=j;
                                                 m:=x[k];
                                              end;
                                  if k<>i then
                                            begin
                                              x[k]:=x[i];
                                              x[i]:=m;
                                            end;
                         end;
     for i:=1 to n do write (x[i],' ');
end.