procedure THlMenu.cil;
begin
body := bonus + vzdalenost;
ClrScr;
GoToXY(20,5);

tuhle část uprav na

procedure THlMenu.cil;
begin
body := bonus + vzdalenost;
zapisVysledek;
ClrScr;
GoToXY(20,5);

A až dojedeš závod, tak se budou chtít načíst výsledky a zapsat tam ten aktuální, ovšem to se nastane, při načítání výsledků do pole program spadne...