insertion

program insertionSort;
uses crt;

var
    arr: array[1..10] of integer;
    i, j, temp: integer;

begin
    clrscr;
    //mengisi array dengan data acak
    randomize;
    for i := 1 to 10 do
        arr[i] := random(100);

    //menampilkan data sebelum diurutkan
    writeln('Data sebelum diurutkan:');
    for i := 1 to 10 do
        write(arr[i], ' ');

    //algoritma insertion sort
    for i := 2 to 10 do
    begin
        temp := arr[i];
        j := i - 1;
        while ((j > 0) and (arr[j] > temp)) do
        begin
            arr[j + 1] := arr[j];
            j := j - 1;
        end;
        arr[j + 1] := temp;
    end;

    //menampilkan data setelah diurutkan
    writeln;
    writeln('Data setelah diurutkan:');
    for i := 1 to 10 do
        write(arr[i], ' ');
end.