Integer Arrays vergleichen & Primzahlen aus Array löschen?

[Nikolas]

Warum so ungenau bei ist_quadratzahl?

Delphi-Quellcode:

function ist_quadratzahl(x: integer): boolean;
begin
  if (sqrt(x) = trunc(sqrt(x)) then result:=true else result:= false;
end;