Помогите пожалуйста с сортировкой массива. Я ее написал, но там что-то не правильно, не могу понять что именно

program n3;
const n=3;
var a:array [1..n,1..n] of integer;
i,j,t:integer;
begin
randomize;
writeln('матрица');
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(30)-10;
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:4);
writeln;
end;
writeln('после сортировки');
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if a[i,j]