Не получается сохранить записи - Free Pascal

Формулировка задачи:

Народ! Помогите, пожалуйста, исправить ошибку в программе. У меня не получается сохранить записи, программа работает, но когда сохраняешь и нажимаешь клавишу Exit, она выходит и когда заходишь она не открывает сохранённые записи. И в программе съехали столбцы, я пыталась их выровнить, в самой программе убирала пробелы, но она ничего она не меняет. Я никак не могу это исправить. А завтра её нужно сдавать! Помогите пожалуйста!!!!

Решение задачи: «Не получается сохранить записи»

textual
                            Листинг программы 
                        
 
                        
                          
                    
(str:' Clean ';       x:1; y:2; res:1), {1-й пункт}
(str:' Add ';         x:9; y:2; res:2), {2-й пункт}
(str:' Del ';         x:16; y:2; res:3), {3-й пункт}
(str:' Sort ';        x:23; y:2; res:4), {4-й пункт}
(str:' View ';        x:31; y:2; res:5), {5-й пункт}
(str:' Viev on query '; x:39; y:2; res:6), {6-й пункт}
(str:' Save ';        x:56; y:2; res:7), {7-й пункт}
(str:' Load ';        x:64; y:2; res:8), {8-й пункт}
(str:' Exit ';        x:72; y:2; res:100), {9-й пункт}
 
....
    case MenuVert(MainMenu) of {Вызываем меню и в зависимости
         от выбранного пункта выполняем соответствующее действие}
    1:ClearArray;
    2:InsertToArray;
    3:DeleteFromArray;
    4:SortArray;
    5:ViewArray;
    6:SaveArray;
    7:LoadArray;
    8:ViewPartArray;
....