Viết chương trình tính xem số nguyên dương nhập vào có phải số nguyên tố không?

program BiBo212;
uses crt;
var i,n :longint; KT :boolean;
begin
        clrscr;
        write('Nhap so n: ');readln(n);
        KT:=true; //Coi n la snt;
        if n<2 then KT:=false
               else For i:=2 to n-1 do
                    if n mod i=0 then
                        begin
                                KT:=false;
                                break;
                        end;
        if KT=true then writeln('',n,' la so nguyen to')
        else writeln('',n,' khong phai so nguyen to');
        readln;
end.