proc addentrie (addin : string)

    fileproc := addin
    fileproc += ".txt"
    if File.Exists (addin) then
        open : fileadd, fileproc, get
        assert fileadd > 0
        loop
            linecounter += 1
            exit when eof (fileadd)
            get : fileadd, donefinder : *
            if donefinder = "done" then
                dones += 1

            end if

        end loop
        close : fileadd
    end if
    put linecounter
    put dones
end addentrie
%=========================================================================================================================

%ADD ENTRIES PROCEDURE---------------------------------------------------------------------------------------------------
    proc loopadd (nothing :string)
        for c : 1 .. num
            exit when exitcmd = 1
            exit when exitcmd = 2
            put : file, stumarks (c).name
            count := numitems (num)
            for d : 1 .. count
                put : file, stumarks (c).item (d), " ", stumarks (c).mark (d), "/", stumarks (c).outof (d)
                if d = count then
                    put : file, stumarks (c).comments
                    put : file, "done"
                end if
            end for
        end for
        end loopadd

%The data structure we want to use
type entry :
    record
        name : string
        age : int
    end record
%The array of said datastructure
var entries : flexible array 1 .. 0 of entry

%Reads all entries from the file
proc readFromFile (name : string)
    open file for reading
    %Retreive all entries in the file and put them in the array
    loop
        exit when eof
        expand entries array by 1
        entries (upper (entries)).name := readline
        entries (upper (entries)).age := readline
    end loop
    close file
end readFromFile

%Writes all entries to the file
proc writeToFile(name : string)
    open file for writing
    for i : 1 .. upper (entries)
        put entries(i).name, file
        put entries(i).age, file
    end for
    close file
end writeToFile

%Compares 2 strings and determines which comes first in the alphabet
function isGreater (name1 : string, name2 : string) : boolean
    result true if name1 is farther along in the alphabet than name2, you MIGHT be able to use > for this
end isGreater

%Adds an entry with the given properties to the array in alphabetical order
proc addEntry (name : string, age : int)
    %Remains false if the entry is at the end of the array alphabetically
    var added : boolean := false
    %Loops through all entries and checks if the entry is greater alphabetically as we assume that the array is already in alphabetical order
    for i : 1 .. upper (entries)
        if isGreater (entries (i).name, name) then
            %Expand the array, shift all entries from ui towards the end and put the current entry in at i
            expand entries array by 1
            for decreasing j : upper (entries) .. i + 1
                entries (j) := entries (j - 1)
            end for
            entries (i).name := name
            entries (i).age := age
            added := true
            exit
        end if
    end for
    %If we haven't already added the entry to the array, put it after the last entry
    if added = false then
        expand entries array by 1
        entries (upper (entries)).name := name
        entries (upper (entries)).age := age
    end if
end addEntry

readFromFile
addEntry however many times you want
writeToFile

   open : file, filereal, put,mod, seek
    seek : file, *
    put : file, "this should be at the end"      % the entire file just seems to get replaced with this text
    close : file