giúp mình với ạ! mình đang cần

var n,i: integer;
    kt: boolean;
begin
    readln(n);
    kt:=true;
    if n>=2 then begin
        for i:=2 to n-1 do if n mod i = 0 then begin
            kt:=false;
            break;
        end;
    end else kt:=false;
    if kt then write('n la so nguyen to') else write('n khong la so nguyen to')
end.