Số nguyên tố gần nhất

Program wanted;
Uses crt;
Var j,a,b,min,n,i: longint;
  t: boolean;
Begin
  clrscr;
  write('nhap n=');
  readln(n);
  min := n;
  For i:=2 To 2*n Do
    Begin
      t := true;
      For j:=2 To trunc(sqrt(i)) Do
        If i Mod j=0 Then t := false;
      a := abs(n-i);
      If (a        Begin
          min := a;
          b := i;
        End;
    End;
  writeln('so nguyen to gan ',n,' nhat la:',b);
  readln
End.