Spreminjanje vrednosti v polju [C]

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Main is

	VELIKOST			: constant Integer := 5;
	input				: Integer;
	polje				: array (1 .. VELIKOST) of Integer;

begin

	for iterator in 1 .. VELIKOST
	loop
		Put ("Vnesite "); Put (Item => iterator, Width => 1); Put (". število: ");
		Get (input);

		polje (iterator) := input;
	end loop;
	
	New_Line;
	Put ("Vnesite poljubno število: ");
	Get (input);
	New_Line;

	for iterator in 1 .. VELIKOST
	loop
		if polje (iterator) = input then
			-- premakni vse navzgor
			for premik in (iterator + 1) .. VELIKOST
			loop
				polje (premik - 1) := polje (premik);
			end loop;

			polje (VELIKOST) := 0;
		end if;
	end loop;

	New_Line;

	for iterator in 1 .. VELIKOST
	loop
		Put ("Polje ["); Put (Item => iterator, Width => 1); Put ("] = "); Put (polje (iterator));
		New_Line;
	end loop;

exception
	When others =>
		Put_Line ("Nekaj je šlo narobe");
end Main;

main.adb:29:25: assignment to loop parameter not allowed
main.adb:39:25: warning: value not in range of subtype of "Standard.Integer" defined at line 8
main.adb:39:25: warning: "Constraint_Error" will be raised at run time
gnatmake: "main.adb" compilation error

#include <stdio.h>
#define VELIKOST 5

int main()
{
	int input;
	int polje[VELIKOST];

	for(int stevec = 0; stevec < VELIKOST; stevec++)
	{
		printf("Vnesite %d. stevilo: ", stevec+1);
		scanf("%d", &polje[stevec]);
	}

	printf("\nVnesite poljubno stevilo: ");
	scanf("%d", &input);


	for(int stevec = 0; stevec < VELIKOST; stevec++)
	{
		if(polje[stevec] == input)
		{
			// premakni vse navzgor
			for (int premik = stevec + 1; premik < VELIKOST; ++premik)
			{
				polje[premik - 1] = polje[premik];
			}
			polje[VELIKOST - 1] = 0; 
		}
	}

	printf ("\n");

	for(int stevec = 0; stevec < VELIKOST; stevec++)
	{
		printf("Polje [%d] == %d\n", stevec, polje[stevec]);
	}

	return 0;
}