Сортировка двумерных массивов

uses crt;
var  a:array[1..100,1..100]of integer;
s:array[1..100]of real;
i,j, N:integer;
b:real;
 
begin
    clrscr;
    randomize;
    write('Размерность A(N,N) -> ');   
    readln(N);
    writeln('Массив A'); 
    for i := 1 to N do
    begin
        for j := 1 to N do
        begin
            a[i, j] := random(15);
            write(a[i,j]:3);
        end;
        writeln;
    end;
    
    for i:=1 to N do
    begin
      s[i]:=0;
      for j:=1 to N do s[i]:=s[i]+a[i,j];
      s[i]:=s[i]/N;
    end;
 
    writeln('Массив B до сортировки:');
    for i:=1 to N do write(s[i]:6:3);
 
    for i:=N downto 1 do
    for j:=1 to i-1 do if s[j]<s[j+1] then
    begin
      b:=s[j];
      s[j]:=s[j+1];
      s[j+1]:=b;
    end;
    writeln('Массив B после сортировки:');
    for i:=1 to N do write(s[i]:6:3);
    readln;
end.

uses crt;
const n=5;
var a: array[1..n,1..n] of shortint; b: array[1..n] of shortint; i,j: byte;
begin
randomize;
clrscr;
writeln('Исходный массив:  ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:3);
end;
writeln;
end;
for i:=1 to n do
begin
for j:=1 to n do
b[i]:=b[i]+a[i,j];
b[i]:=round(b[i]/n);
end;
writeln('Вектор средних арифметических: ');
for i:=1 to n do
write(b[i]:4);
for i:=1 to n-1 do
for j:=1 to n do
if b[i]<b[j] then
begin
b[i]:=b[i]+b[j];
b[j]:=b[i]-b[j];
b[i]:=b[i]-b[j];
end;
writeln;
writeln('Отсортированный вектор: ');
for i:=1 to n do
write(b[i]:4);
end.