Данные то у тебя сохраняются, только вот читаешь ты их изниоткуда:
procedure read;
begin
rs := openRecordStore('phone');
name := readRecordStoreEntry(rs, index);
closeRecordStore(rs);
showCanvas;
setColor(255, 0, 0);
drawText(name, 5, 5);
repaint;
delay(3000);
CreateMenu;
end;
Переменная
indexпосле записи имеет значение ячейки, в которую ты записал номер, но после перезапуска она равна
0.
Поэтому, нужно запрашивать у пользователя индекс ячейки и писать в неё, потом запрашивать индекс при чтении.