Если в матрице все элементы различны, упорядочить строки матрицы по неубыванию количества простых чисел среди элементов строк — Pascal(Паскаль)

var
  a: array [1..10,1..3] of integer;
  i,j,k,l: byte;
  p: boolean;
label 1;
begin
  randomize;
  for i := 1 to 3 do
  begin
    for j := 1 to 10 do
    begin
      a[j,i] := random(100);
      write(a[j,i],' ')
    end;
    writeln
  end;
  writeln;
  for i := 1 to 3 do
   for j := 1 to 10 do
   begin
     p := false;
     for k := 1 to 3 do
       for l := 1 to 10 do
       begin
         if (i = k) and (l = j) then continue;
         if (a[l,k] = a[j,i]) then
         begin
           p := true;
           goto 1;
         end;
       end;
     1:if not p then write(a[j,i],' ')
   end;
   readln
end.