calculate prime number/de

uses
  SysUtils, ...;
  
  ...
  
implementation

  ...

// Diese Funktion prüft, ob eine Zahl eine Primzahl ist
function funIsPrim(qwdGanzzahl: QWord): boolean; inline;
var
  qwdI: QWord;

begin

  Result := False;

  for qwdI := 2 to Round(Sqrt(qwdGanzzahl)) do
    if qwdGanzzahl mod qwdI = 0 then
      exit;

  Result := True;

end;

// Diese Funktion ermittelt alle Primzahlen aus einem bestimmten Bereich
procedure subPrimArray(qwdVon, qwdBis: QWord);
var
  qwdI: QWord;
  arrPrim: array of Qword;

begin

  // Legt die Anfangsgrösse des Arrays fest
  SetLength(arrPrim, 0);

  for qwdI := qwdVon to qwdBis do
  begin
    if funIsPrim(qwdI) = True then
    begin
      // ändert die Grösse des Arrays
      SetLength(arrPrim, High(arrPrim) + 2);
      arrPrim[High(arrPrim)] := qwdI;
    end;
  end;

end;

  ...