Poradte s Procedurami – Pascal – Fórum – Programujte.com

Zdravim mam trochu úproblem s timto zadanim ukoly.. nabudu tajit ze to je do skoly.. program jsem nejak napsal ale nefunguje tak jak ma.. dekuju za jakoukoli radu na proceduru jsem prisel a vcemene vse kolem ale nevim sio rady s vyskrtnitim toho jednoho prvku ktery je jiz po prvnim vypsani zbytecny
zadani: Sestavte proceduru, která v dané n-prvkové posloupnosti najde nejmenší prvek a jeho index, a
použijte ji pro řešení následující úlohy: je dáno k celých čísel, vytiskněte je v pořadí od
nejmenšího do největšího a to tak, že nejprve najdete nejmenší číslo, ze zbytku opět nejmenší,
atd. až do posledního.

By to sem chtelo dat ten kod......

type TPolozka = record

	value:integer;

	index:integer;

end;





{procedura nalezne v poli nejmensi prvek a vrati jeho index a hodnotu}

function getItem(pocetPolozek:integer,pole:array[1..10] of integer):TPolozka;

var min:TPolozka;

     i:integer;

begin

	min.value := pole[1];

	min.index := 1; 

	

	for i:= 2 to pocetPolozek do begin

		if min.value < pole[i] then

		begin

			min.value := pole[i];

			min.index := i;

		end;

	end;	

	

	getItem := min;

end;





{procedura vyskrtne z pole prvek, jehoz index je zadan jako parametr}

procedure vyskrtni(index:integer;var pocetPolozek:integer; var pole:array[1..10] of integer);

var tempPole:array[1..10] of integer;

	i,j:integer;

begin

	j:= 1;

        {vynechani zadaneho indexu }

	for i := 1 to pocetPolozek do begin

		if index <> i do begin

			tempPole[j] := pole[i]; 

			j ;= j +1;

		end;

	end;



       	pocetPolozek := pocetPolozek - 1; {snizi pocet prvku o 1} 

	{prekopirovani platnych hodnot zpet do puvodniho pole}

	for i := 1 to pocetPolozek do begin

		if index <> i do begin

			pole[i]:=tempPole[j]; 

			j ;= j +1;

		end;

	end;

end;