Сортировка двумерного массива

uses crt;
const n=5;
function Prost(p:integer):boolean;
var i:integer;
begin
Prost:=true;
for i:=2 to round(sqrt(p)) do
if p mod i=0 then
 begin
  Prost:=false;
  break;
 end;
end;
var a:array[1..n,1..n+1] of integer;
    i,j,k,l:byte;
    b:integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(50)+2;
{нахождение количества простых в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to n do
  if Prost(a[i,j]) then k:=k+1;
  a[i,n+1]:=k;
 end;
writeln('Исходный массив:');
writeln('Прст.':(n*4+9));
for i:=1 to n do
 begin
  for j:=1 to n+1 do
  if j=n+1 then
    begin
     textcolor(15);
     write(a[i,j]:7);
    end
  else
   begin
    if Prost(a[i,j])then
     begin
      textcolor(12);
      write(a[i,j]:4);
     end
    else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
   end;
  writeln;
 end;
writeln;
{перестановка строк по неубыванию количества(по последнему столбцу)}
for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,n+1]<a[l,n+1] then
for j:=1 to n+1 do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
writeln('Строки по убыванию количества простых:');
writeln('Прст.':(n*4+9));
for i:=1 to n do
 begin
  for j:=1 to n+1 do
  if j=n+1 then
    begin
     textcolor(15);
     write(a[i,j]:7);
    end
  else
   begin
    if Prost(a[i,j])then
     begin
      textcolor(12);
      write(a[i,j]:4);
     end
    else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
   end;
  writeln;
 end;
readln
end.