Составить блок схему и программу в последовательности от 1 до n вывести простые числа, число является простым если оно имеет 2 делителя, 1, и само себя

Var i,k,count,n:integer;
begin
readln(n);
for i:= 1 to n do
begin
count:=0;
for k:= 1 to i do
if i mod k = 0 then
if (i div k = 1) or (i div k = i) then
count:= count+1
else count:=3;
if count=2 then
writeln(i);
end;
end.