Неожиданно перестал работать код

[kry]

uses crt;
var mas1:array[1..1000] of Integer;
count,i,j,n : Integer;
    	is_simple : Boolean;
   	 temp,sum  : Real;
begin
     	writeln('Vvedite razmernost massiva' );
     	readln(n);
     	for i:=1 to n do
         	begin
         		write('Vvedite '  ,i,' element massiva');
         		readln(mas1[i]);
         	end;
     	for i:=1 to n do
         	writeln(mas1[i]);
     	begin
          		is_simple:=false;
          		for j:= 1 to i do
         		 begin
               		if((i mod j) = 0) and (j>1) and (j<i) then
               		begin
               		is_simple:=true;
               		break;
               		end;
          		end;
          	if is_simple=false then sum:=sum+mas1[i];
     	end;
writeln('Summa = ',sum);
readln;
end.

Неожиданно перестала работать.... отладку делать влом, кто нить по 1ому взгляду может сказать где косяк.

[kry]

Он почему то не считает сумму.

[Doc]

is_simple определяет простое ли число?
и смысл этого кода найти сумму всех составных чисел в массиве?
и почему Sum:Real, когда массив - Integer???

[kry]

is_simple определяет простое ли число?
да

и смысл этого кода найти сумму всех составных чисел в массиве?
Сумму всех чисел чьи порядковые номера - простые

[Doc]

попробуй второй цикл так:

for i:=2 to n do
begin
writeln(mas1[i]);
is_simple:=true;
for j:= 2 to 9 do
begin
   if((i mod j) = 0) and (i<>j)) then
   begin
     is_simple:=false;
     break;
   end;
end;
if is_simple=true then sum:=sum+mas1[i];
end;

Здесь мы попробуем разделить номер числа на число от 2 до 9 (кроме него самого, когда i будет от 2 до 9) - если поделится без остатка хоть на одно из них - то число составное

[Doc]

т.е. не второй цикл, а вообще циклы поставь так
и сделай Sum:Integer - у тебя ведь массив целых чисел.