Процедуры и функции: Определить максимальный элемент каждой строки , отсортировать каждый столбец, затем каждую строку

const
  n=11;
  
type
  tArr=array[1..n,1..n] of integer;
  
procedure init(var a: tArr);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(99)+1;
end;
 
procedure output(a: tArr);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
function maxim(a: tArr; i: byte): byte;
var j,jmax: byte;
begin
  jmax:=1;
  for j:=2 to n do
    if a[i,j]>a[i,jmax] then jmax:=j;
  maxim:=jmax;
end;
 
procedure sort1(var a: tArr);
var i,j,k: byte;
    tmp: integer;
begin
  for k:=1 to n do
    for i:=2 to n do
      for j:=n downto i do
        if a[k,j-1]>a[k,j] then
        begin
          tmp:=a[k,j-1];
          a[k,j-1]:=a[k,j];
          a[k,j]:=tmp;
        end;
  writeln('Массив, отсортированный по строкам:');
end;
 
procedure sort2(var a: tArr);
var i,j,k: byte;
    tmp: integer;
begin
  for k:=1 to n do
    for i:=2 to n do
      for j:=n downto i do
        if a[j-1,k]>a[j,k] then
        begin
          tmp:=a[j-1,k];
          a[j-1,k]:=a[j,k];
          a[j,k]:=tmp;
        end;
  writeln('Массив, отсортированный по столбцам:');
end;
 
var
  a: tArr;
  k,i: byte;
begin
  init(a);
  writeln('Исходная матрица:');
  output(a);
  for i:=1 to n do
  begin
    k:=maxim(a,i);
    writeln(i,'-я строка: max  = a[',i,',',k,'] = ',a[i,k]);
  end;
  writeln;
  sort1(a);
  output(a);
  sort2(a);
  output(a);
end.