Оптимизировать код)

[Pein95]

Народ у кого какие мысли нащет етого кода:

program Project1_1022;

{$APPTYPE CONSOLE}

var
i,j:integer;
a,b,k,p,res:integer;
ar:array [1..1000000] of integer;


begin

  res:=0;



read(a);

read(b);

read(k);

for I := a to b do
  ar[i]:=i;


for I := ar[a] to ar[b] do
begin
  p:=round(sqrt(i));
  j:=2;
  if ar[i]=1 then continue;
  
  while(i mod j<>0) and (j<=p) do inc(j);
  if (j>p) then
    ar[i]:=-1;
end;



for I := a to b do
  begin
    if ar[i]=-1then
    begin
      j:=i;
      for p := i-k to i+k do
        begin
          if p=j then  continue
          else
          ar[p]:=0;
        end;

    end;
    
  end;

for I := a to b do
    if ar[i]>0 then
    res:=res+1;

  writeln(res);


end.

нужно уменшить использование памяти) помогите советом) Зарание спасибо)

[Костя КС]

А можно узнать, что в этой программе происходит?
Количество каких чисел подсчитывается?