[lmikle]

Код:

function IsSimple(N : Integer) : Boolean;
begin
  // Определяет, является ли число N простым.
  // Напиши сама
end;

var
  A : Array Of Arra Of Integer; // Изначальный массив
  B : Array Of Integer; // Результирующий массив
  I, J : Integer;
  F : boolean;
begin
  SetLength(B,0);
  For I := Low(A) To High(A) Do
    Begin
      F := True;
      For J := Low(A[i]) To High(A[i]) Do
        Begin
           F := F And IsSimple(A[I,J]);
           If Not F Then Break;
        End;
      If F Then
        Begin
          SetLength(B,Length(B)+1);
          B[High(B)] := I;
        End;
        End;
    End;
end;

Заполнение исходного массива А и вывод его и результирующего массива B, как и функцию определения простоты числа, напишешь сама.