Определить, простое или составное введённое число

var x,i:integer;
begin
write('Ввведите число - ');
read(x);
for i:=2 to x-1 do
if x mod i = 0 then
begin
x:=1;
write('Число составное');
break;
end;
if x<>1 then
write('Число простое');
end.

function isSimple(value: cardinal): boolean;
begin
  if value < 2 then
  begin
    Result := false;
    exit;
  end;
  Result := Range(2, Trunc(Sqrt(value))).Where(f -> value mod f = 0).Count = 0;
end;
 
begin
  writeln(isSimple(2147483647));
  for var i:=2 to 100 do
  if not isSimple(i) then Print(i);
end.

function isSimple(value: cardinal): boolean;
begin
  Result := (value >= 2) and (Range(2, Trunc(Sqrt(value))).Where(f -> value mod f = 0).Count = 0)
end;

function isPrime(v : integer) : boolean :=
  (v > 1) and Enumerable.Range(2, Trunc(Sqrt(v)) - 1).All(t -> v mod t <> 0);

function isSimple(value: cardinal):boolean:=(value>1) and (Range(2, Trunc(Sqrt(value))).Where(f -> value mod f = 0).Count = 0);