set idx2 to 1
             search t-jaar
               at end
                 display "Fout in opgave"
                 accept pauze
                 stop run
               when t-jaartal(idx2) = 0
                 move diploma to t-jaartal(idx2)
               when t-jaartal(idx2) = diploma
                 continue
             end-search