Паскаль, матрица

[DmitriiS]

Помогите решить задачу. Необходимо удалить из матрицы строки и столбцы в которых содержатся простые числа. Алгоритм нахождения простого числа я знаю For k:=2 to a[i,j] div 2 do
If a[i,j] mod k=0 then
Inc(l); {если l=0 тогда число простое}
Только как удалить строку или стобец после нахождения числа? Помогите пожалуйста

[Alex_FF]

алгоритм нахождения простого числа не такой
нужно проверять числа от двух до КОРНЯ КВАДРАТНОГО их Икс!

вот правильный алгоритм для определения простоты натурального числа:

{ Возвращает TRUE если число простое }
function PrimeNumber(X: Longint): Boolean;
var
  I: Integer;
  F: Boolean;
begin
  F := True;
  for I := 2 to Trunc(Sqrt(X)) do
    if X mod I = 0 then
    begin
      F := False;
      Break;
    end;
  PrimeNumber := F and (X <> 1);
end;