BUBBLE SORT- Cosa non và nel mio programma?

[XBarboX]

Oggi ho provato a ORDINARE UN ARRAY e chiedendo su answer mi han detto che l'algoritmo più semplice per l'ordinamento di un array è il bubble sort.
Allora ho cercato su wikipedia, mi sono fatto una idea e ho scritto questo programma:
Dimenticavo! è in PASCAL

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:=1; {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[i]; { }
dato[i]:= dato[i+1]; { <--Scambio }
dato [i+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.

Non mi da nessun errore il compilatore, però non funziona! perchè ??????