Levilaulada

Всем спасибо, просветление наступило.Вот я сделала пузырьковым методом:
Program sortirov_puzirok;
var
m: array[1..5] of integer;
ind: boolean;
i: integer;
buf: integer;
begin
For i:=1 to 5 do
begin
Writeln('Введите число последовательности N: ',i);
Readln(m[i]);
end;
Repeat
ind:=true;
For i:=1 to 4 do
if m[i]>m[i+1] then
begin
buf:=m[i];
m[i]:=m[i+1];
m[i+1]:=buf;
ind:=false;
end;
until ind;
Writeln('Результат сортировки по возрастанию: ');
For i:=1 to 5 do
Writeln(m[i]);
end.
__________
с сортировкой выбором так ничего не получается=((уже все методы перепробовала, кроме правильного ^^.