Найти сумму и количество элементов в каждом столбце матрицы, являющихся простыми числами

const
  n = 3;
  m = 3;
 
function IsSimplex(AValue: Integer): Boolean;
var
  i: Integer;
begin
  Result := False;
 
  if AValue > 1 then
  begin
    for i := 2 to AValue - 1 do
      if (AValue mod i) = 0 then
        Exit;
 
    Result := True;
  end;
end;
 
var
  i, j, s, count: Integer;
  arr: array [1..n, 1..m] of Integer;
begin
  Randomize;
  for i := 1 to n do
  begin
    s := 0;
    count := 0;
    
    Writeln('Ñòîëáåö - ', i);
    for j := 1 to m do
    begin
      arr[j, i] := Random(100);
      Write(arr[j,i], ' ');
      
      if IsSimplex(arr[j,i]) then
      begin
        Inc(s, arr[j,i]);
        Inc(count);
      end;
    end;
    
    Writeln;
    Writeln('Êîëè÷åñòâî ïðîñòûõ ÷èñåë - ', count);
    Writeln('Èõ ñóììà - ', s);
    Writeln;
  end;
  
  readln;
end.

function IsSimplex(AValue: Integer): Boolean;
var
  i: Integer;
begin
  Result := False;
 
  if AValue > 1 then
  begin
    for i := 2 to AValue div 2 do
      if (AValue mod i) = 0 then 
        Exit;
 
    Result := True;
  end;
end;

function prime(n: integer): boolean;
var i: integer;
begin
  if n < 2 
    then prime := false
    else begin
      prime := true;
      for i := 2 to trunc(sqrt(n)) do 
        if n mod i = 0
          then begin
            prime := false;
            break
          end
    end
end;

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

function isPrime(X: LongInt): boolean;
var i, gr : integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     gr := trunc(sqrt(x));
     while i <= gr  do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;