VCT in ra số lượng số nguyên tố có trong đoạn từ a đến b( yêu cầu dùng pascal)

uses crt;
var i,d,a,b:longint;
function kt(a:longint):boolean;
var i:longint;
begin
Kt:=true;
If a<2 then exit(false)
Else
for i:=2 to round(sqrt(a)) do
if(a mod i=0)then exit(false);
end;
begin
clrscr;
readln(a,b);
D:=0;
If a>b then
begin
For i:=b to a do
If kt(i) then inc(d);
end
Else
For i:=a to b do
If kt(i) then inc(d);
write(d);
readln;
end.