Nhập chung phần in các số nguyên tố và in ra có tất cả bao nhiêu số nguyên tố lại với nhau và kết quả in ra như ban đầu

Nhập chung phần in các số nguyên tố và in ra có tất cả bao nhiêu số nguyên tố lại với nhau và kết quả in ra như ban đầu :
program bai12;
uses crt;
var n,t,kt,j,i,dem,k:integer;
begin
   clrscr;
   write('Nhap N='); readln(N);<br />   If (n<0) or (n>100) then<br />      repeat<br />         write('Nhap lai N='); readln(N)<br />      until (0<=n) and (n<=100);<br />   write('Cac so nguyen to la:');
   for k:=2 to n Do
     begin
       dem:=0;
       for i:= 1 to k do if k mod i=0 then dem:=dem+1;
       if dem=2 then write(k,' ');
     end;
   t:=0;
   for i:=1 to N do
     if i>1 then
      begin
        kt:=0;
        for j:=2 to i-1 do
          if i mod j=0 then kt:=1;
        if kt=0 then t:=t+1;
      end;
   writeln('co ',t,' so nguyen to');
   readln;
end.