Помогите пожалуйста! Найти 100 первых простых чисел. Нарисовать блок-схему алгоритма к задаче

Напишу программу на паскале, блок схему нет возможности нарисовать
P.S inc - это увеличение переменной на единицу. Удачи по иформатике)
_____________________________________________________________
var i, k, c, pr: int64;
 begin 
  k := 1;
  pr := 0;
  while pr lt; 100 do
begin c := 0;
    for i := 1 to k do begin
      if k mod i = 0 then inc(c) end;
if c = 2 then begin write(k, );
      inc(pr) end;
    inc(k) end;
end.