Отсортировать главную диагональ матрицы и строки за ней через процедуры и функции

uses crt;
const n=12;
var B:array[1..n,1..n]of integer;
i,j,buf,k,tmp:integer;
sort:boolean;
begin randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
for j:=1 to n do begin
B[i,j]:=random(100);
write(B[i,j]:4); end;
writeln;
end;
sort:=false;{сорт гл диаг}
while (sort=false) do
begin
sort:=true;
for i:=1 to n-1 do
begin
if (B[i,i]>B[i+1,i+1]) then
begin
buf:=B[i,i];
B[i,i]:=B[i+1,i+1];
B[i+1,i+1]:=buf;
sort:=false;
end;
end;
end;
readkey;
writeln('Массив после сортировки главной диагонали:');
for i:=1 to N do begin
for j:=1 to N do 
write(B[i,j]:4);
writeln;
end;
for i:=1 to n-1 do
for j:=i+2 to n do
for k:=n downto j do
if B[i,k-1]>B[i,k] then
begin
tmp:=B[i,k-1];
B[i,k-1]:=B[i,k];
B[i,k]:=tmp;
end;
writeln('Массив после сортировки выше главной диагонали:');
for i:=1 to n do
begin
for j:=1 to n do
write(B[i,j]:4);
writeln;
end;
end.

uses crt;
const n=12;
type mtr=array[1..n,1..n]of integer;
procedure vvod(var b:mtr);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
B[i,j]:=random(100);
end;
procedure vyvod(b:mtr;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(B[i,j]:4);
  writeln;
 end;
writeln('Нажмите любую клавишу');
readkey
end;
procedure sortglav(var b:mtr);
var i,j,buf:integer;
    sort:boolean;
begin
sort:=false;{сорт гл диаг}
while (sort=false) do
 begin
  sort:=true;
  for i:=1 to n-1 do
   begin
    if (B[i,i]>B[i+1,i+1]) then
     begin
      buf:=B[i,i];
      B[i,i]:=B[i+1,i+1];
      B[i+1,i+1]:=buf;
      sort:=false;
     end;
   end;
 end;
end;
procedure sortstrok(var b:mtr);
var i,j,k,tmp:integer;
begin
for i:=1 to n-1 do
for j:=i+2 to n do
for k:=n downto j do
if B[i,k-1]>B[i,k] then
 begin
  tmp:=B[i,k-1];
  B[i,k-1]:=B[i,k];
  B[i,k]:=tmp;
 end;
end;
var B:mtr;
begin
randomize;
vvod(B);
vyvod(B,'Исходная матрица:');
sortglav(B);
vyvod(B,'Сортировка главной диагонали:');
sortstrok(B);
vyvod(B,'Сортировка строк за гл. диагональю:');
end.