Создать программу, которая найдет наименьшее число, который взаимное простое число с 60 и больше, чем введенное число - Pascal

//наибольший общий делитель
function nod(a,b:integer):integer;
begin
while (a<>0) and (b<>0) do
if a>=b then a:=a mod b else b:=b mod a;
nod:=a+b;
end;
var n:integer;
begin
write('n=');
readln(n);
if n<=0 then n:=1
else
 begin
  n:=n+1;
  while nod(n,60)<>1 do inc(n);
 end;
write('n=',n)
end.