Упорядочить (переставить) строки матрицы по неубыванию значений наименьших элементов строк

var a:array[1..10,1..11] of integer;
    n,i,j,k,x:integer;
begin
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=-10+random(21);
writeln('Исходная матрица');
writeln('Мин. ':n*4+10);
for i:=1 to n do
 begin
  a[i,n+1]:=a[i,1];
  for j:=1 to n do
   begin
    if a[i,j]<a[i,n+1]then a[i,n+1]:=a[i,j];
    write(a[i,j]:4);
   end;
  writeln(a[i,n+1]:8);
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,n+1]>a[j,n+1] then
for k:=1 to n+1 do
 begin
  x:=a[i,k];
  a[i,k]:=a[j,k];
  a[j,k]:=x;
 end;
writeln('Строки упорядочены по неубыванию минимальных элементов');
writeln('Мин. ':n*4+10);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln(a[i,n+1]:8);
 end;
end.