kiểm tra số nguyên tố được nhập từ bàn phím

uses crt;
var n,i,dem,chan,le,dem2: integer;
    kt:boolean;
begin
        clrscr;
        repeat

                write('nhap so: '); readln(n);
                if n mod 2=0 then
                        chan:=chan+n
                else
                        begin
                                dem2:=dem2+1;
                                le:=le+n;
                        end;
                for i:=2 to (n div 2) do
                        if n mod i =0 then dem :=dem+1;
                     if dem=0 then kt:=true;
                     if (n=0) or (n=1) or (dem>0) then kt:=false;

        until kt=true;
                writeln('tong cac so chan: ',chan);
                writeln('trung binh cong cac so le: ',le/dem2:0:0);
        readln;
end.

cho mình xin câu trả lời hay nhất