Определить функцию, позволяющую распознавать простые числа — Pascal(Паскаль)

function Simple(n:longint):boolean;
var
  i:longint;
  f:boolean; 
begin
if n<2 then f:=false
else
 begin
  f:=true;
  for i:=2 to round(sqrt(n)) do
  if n mod i=0 then
    begin
      f:=false;
      break;
    end;
  end;  
Simple:=f;
end;