Задан массив А[15] из вещественных числе, первые элементы которого упорядочены, последние не упорядочены. Упорядочить весь массив — Pascal(Паскаль)

program PascalGuru;

uses crt;

label 1;

procedure exchange(var a, b: real);
var
  c: real;
begin
  c := a;
  a := b;
  b := c;
end;

var
  a: array [1 .. 50] of real;
  i: integer;

begin

  writeln('Vvedite el-ty massiva:');
  for i := 1 to 15 do
  begin
    write('A[', i, ']= ');
    readln(a[i]);
  end;

  writeln;
  writeln('Vvedennyi massiv:');
  for i := 1 to 15 do
    write(a[i]:8:2);

1:
  for i := 2 to 15 do
    if a[i - 1] > a[i] then
    begin
      exchange(a[i - 1], a[i]);
      goto 1;
    end;

  writeln;
  writeln;
  writeln('Otsortirovannyi massiv:');
  for i := 1 to 15 do
    write(a[i]:8:2);

  readln;

end.