var 
      t : array [1..9] of integer = (8, 9, 3, 4, 1, 5, 2, 7, 6);
      i, j, n, kulcs : integer;
begin
  
      n := 9; //A tömb elemeinek száma
  
      for i := 2 to n do
      begin
          kulcs := t[i];
          j := i  - 1;
          while (j > 0) and (t[j] > kulcs) do
          begin
              t[j+1] := t[j];
              j := j -1;
          end;
          t[j+1] := kulcs;
      end;
  
      for i := 1 to n do
          Write(t[i], ' ');
      WriteLn();
      ReadLn();
end.