Nhập vào số nguyên n in ra số nguyên tố gần nhất .Nếu cs hai số nguyên tố cùng cách đều n thì in ra cả hai (pascal)

var
n, i, closest1, closest2: integer;

function IsPrime(num: integer): boolean;
var
i: integer;
begin
if num < 2 then
begin
IsPrime := false;
exit;
end;

for i := 2 to trunc(sqrt(num)) do
begin
if num mod i = 0 then
begin
IsPrime := false;
exit;
end;
end;

IsPrime := true;
end;

begin
readln(n);

closest1 := n;
closest2 := n;

while (not IsPrime(closest1)) and (not IsPrime(closest2)) do
begin
closest1 := closest1 - 1;
closest2 := closest2 + 1;
end;

if IsPrime(closest1) and IsPrime(closest2) then
writeln('Hai số nguyên tố gần nhất với ', n, ' là: ', closest1, ' và ', closest2)
else if IsPrime(closest1) then
writeln('Số nguyên tố gần nhất với ', n, ' là: ', closest1)
else
writeln('Số nguyên tố gần nhất với ', n, ' là: ', closest2);
end.