Kode Program Pascal Menentukan Bilangan Prima dengan Array

Program bil_prima;
uses wincrt;
var
  prima : array[1..100] of integer;
  i,j : integer;
  bil : integer;
begin
  for i := 2 to 100 do
  begin
    prima[i]:=i;
    for j:= 2 to i-1 do
    begin
      if i mod j = 0 then prima[i]:=0;
   end;
    if prima[i]<>0 then write(prima[i],' ');
  end;
end.