Отсортировать пузырьком все элементы, стоящие на главной диагонали квадратной матрицы размера n- Pascal(Паскаль)

program laba11;
uses crt;
var i,j,n,r,g,x:integer;
    b:array[1..50,1..50] of integer;
begin
clrscr;
randomize;
writeln('введите размер квадратного массива');
readln(n);
{создание и вывод массива}
writeln('Исходный массив:');
for r:=1 to n do
 begin
  for g:=1 to n do
   begin
    b[r,g]:=random(10);
    write(b[r,g]:3);
   end;
  writeln;
end;
{сортировка главной диагонали}
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i,i]>b[j,j] then {кстати, может у Вас это и называется пузырек,
но вообще это называется по другому}
 begin
  x:=b[i,i]; b[i,i]:=b[j,j]; b[j,j]:=x;
 end;
 {вывод}
writeln;
writeln('После сортировки:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:3);
  writeln;
 end;
readln
end.