Написать программу алгоритма поисков и сортировки для массива

    const n=10;
    var
      a:array[1..n] of real;
      i:integer;
      k:real;
    begin
      write('введите ',n,' элементов массива:');
      for i:=1 to n do read(a[i]);
        i:=1;
        while i<n do
            if a[i + 1]<a[i] then begin
              k:=a[i];
              a[i]:=a[i+1];
              a[i+1]:=k;
                i:=1;
             end
            else i:= i+1;
      write('отсортированный массив:');
      for i:=1 to n do write(a[i]:8:2);
    end.