var name, artist, album, year : string

var fileout, filein, entries, x : int

x := 0

entries := 0



type musicrecord :

    record
        name : string
        artist : string
        album : string
        year : int
    end record

var musiclibrary : array 1 .. 100 of musicrecord

procedure openfile
    open : filein, "songdatabase.txt", get

    loop
        x := x + 1
        get : filein, musiclibrary (x).name
        get : filein, musiclibrary (x).artist
        get : filein, musiclibrary (x).album
        get : filein, musiclibrary (x).year
        entries := entries + 1
        exit when eof (filein)
    end loop
    close : filein
end openfile

procedure switch (i, j : string)
    const temp := musiclibrary (j).artist
    for decreasing k : j .. i + 1
        musiclibrary (k).artist := musiclibrary (k - 1).artist
    end for
    musiclibrary (x).year (i) := temp
end switch


procedure insertionSort ()
    for j : 2 .. upper (musiclibrary.artist)
        var i := 1
        loop
            exit when i = j or musiclibrary (i).artist >= musiclibrary (j).artist
            i += 1
        end loop
        switch (i, j)
    end for
end insertionSort

openfile

insertionSort (musiclibrary(x).year)

for i : 1 .. 10
    put musiclibrary (i).artist : 5 ..
end for

procedure switch (i, j : string)
    var temp : musicrecord := musiclibrary (j)
    for decreasing k : j .. i + 1
        musiclibrary (k) := musiclibrary (k - 1)
    end for
    musiclibrary (x).year (i) := temp
end switch


procedure insertionSort ()
    for j : 2 .. upper (musiclibrary)
        var i := 1
        loop
            exit when i = j or musiclibrary (i) >= musiclibrary (j)
            i += 1
        end loop
        switch (i, j)
    end for
end insertionSort

openfile

insertionSort (musiclibrary)

for i : 1 .. 10
    put musiclibrary : 5 ..
end for