[Dr.SanX]

Мож поможет, хоть чуть ))

program Rosetau;
var xxx,key,index,ptext:integer;
    rs:recordStore;
procedure main_menu;
begin
	drawText('Hello world!', 0, 0);
	repaint;	
	delay(2000);
end;
begin
repeat
rs:=openRecordStore('Text');//Открытие RecordStore
ptext:=stringToInteger(readRecordStoreEntry(rs,1));//Загрузка 1-й строки с переводом в integer
if ptext=0 then
begin
key:=getKeyClicked;//Чтение клавиатуры
    if key=KE_KEY0 then//Проверка нажатия
    begin
    rs:=openRecordStore('Text');//Открытие RecordStore
    if getRecordStoreSize(rs)=0 then index:=addRecordStoreEntry(rs,'1');//Проверка на наличее строк в RS и если нет записывает
    end;
end;
if ptext=1 then begin 
main_menu;//Загрузка нужной процедуры
ptext:=2//Чтоб зацикливания небыло
end;
until(xxx=1);
end.