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

uses crt;
 
var
a:array [1..10] of integer;
i,j,x,Sum:integer;
 
begin
Sum:=0;
  for i:=1 to 10 do
     begin
     Write('Ââåäèòå ',i,'-é ýëåìåíò ìàññèâà: ');readln(a[i]);
     sum:=sum+a[i];
     end;
writeln;
writeln('Ýëåìåíòû ìàññèâà "À":');
for i:=1 to 10 do
     write(a[i]:3);
writeln;
 
    for i:=1 to 10 do
      for j:=1 to 9 do
      if a[j]<a[j+1] then
      begin
      x:=a[j];
      a[j]:=a[j+1];
      a[j+1]:=x;
      end;
writeln('Ýëåìåíòû ìàññèâà "À" ïî óáûâàíèþ:');
   for i:=1 to 9 do
     write(a[i]:3);
writeln;
writeln('Cóììà ýëåìåíòîâ ìàññèâà "À" = ',sum);
end.

const
  n=5;
type
  dmas=array[1..n,1..n] of integer;
var
  a:dmas;
  i,j,p,buf:integer;
begin
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[i,j]:=random(20)+1;
        write(a[i,j]:4);
        if j=n then
          writeln;
      end;
  writeln;
  {Sortirovka}
  j:=3;
  for i:=1 to n-1 do
    for p:=i+1 to n do
      if a[i,j]>a[p,j] then
        begin
          buf:=a[i,j];
          a[i,j]:=a[p,j];
          a[p,j]:=buf;
        end;
  writeln('Noviy massiv:');
  for i:=1 to n do
    for j:=1 to n do
      begin
        write(a[i,j]:4);
        if j=n then
          writeln;
      end;
end.