Ma hai risolto ?
codice:
Program Bubble_sort;
	Uses crt, dos;
	TYPE
		Vettore = ARRAY [1..5] OF Integer;
	VAR
		Dato: Vettore; {Vettore}
		i,k: integer; {Variabili ausiliari}
		N: integer; {Numero dati}
		Appoggio: integer; {Variabile usata per lo scambio}
	Begin
		n:= 5; {Numero dati = 5}
		
		{Lettura Dati}
		For i:=1 to 5 do
			Begin
				Write('Introduci ',i,' Numero');
				Readln(dato[i]);
			end;
		{Fine lettura dati}

		i:=0; {Inizializzazione i}
		Repeat{Ripeti tutto, ma se i vale numero dei dati-1 smetti}
			Begin
				i:=i+1;{Incremento i}
				for k:=1 to (n-1) do
					Begin
						{Sostituzione numeri}
						if dato[k]> dato[k+1] Then {se il dato dell array č maggiore del successivo}
							Begin
								Appoggio:= dato[k]; { }
								dato[k]:= dato[k+1]; { <--Scambio }
								dato [k+1]:= Appoggio { }
							end;
					End;
			end;
		Until i = (n-1);{Ripeti tutto, ma se i vale num-1 smetti}

		{Stampa L'array}
		For i:=1 to 5 do
			Begin
				Writeln(dato[i]);
			end;
		Readln;
		End.