Массив целых чисел Опции

[OliGan]

Задача состоит в том, что нужно в массив целых чисел вставить какое-то число а между всеми элементами одного знака.
Выдает ошибку exitcode = 207
Буду благодарен за подсказку

program massiv;
var
mas:array[1..115] of integer;
i,j,n,a:integer;
begin
		randomize;
		write('vvesti a ');
		readln(a);
		write('elementi massiva ');
		for i:=1 to 15 do
				mas[i]:=random(10);
				for i:=1 to 15 do
				write(' ',mas[i]);
				readln;
		n:=15;
		j:=1;
		i:=1;
		while i<=n do
		begin
		if (mas[i]/abs(mas[i])=mas[i+1]/abs(mas[i+1])) then
				begin
				   for j:=n downto (i+1) do
				   mas[j+1]:=mas[j];
				   mas[i+1]:=a;
				   inc(n);
				   i:=i+2;
				end
		end;
		for i:=1 to n do
		   write(' ',mas[i]);
		readln;
		readln
end.

Сообщение отредактировано: volvo - 13.03.2010 16:13

[ammaximus]

Действительно, перепутал с условием.