rogram cInput; 
// Код системы 
var // переменные системы: 
    en: array[0..11] of string; // англ. расскладка 
    enx: array[0..11] of string; // англ. расскладка (заглавные) 
    ru: array[0..11] of string; // русс. расскладка 
    rux: array[0..11] of string; // русс. расскладка (заглавные) 
    lanname: array[0..3] of string; 
    lan: integer; // текущий язык 
    lanc: integer; // количество языков 
    ke_input: string; // текущий ввод 
    ke_current: integer; // текущая кнопка 
    ke_select: integer; // буква под цифрой 
    ke_time: integer; // время ввода 
    ke_timex: integer; // макс. время ввода 
// Функции системы: 
{ iostart() - инициализация переменных системы 
    Эту функцию нужно запустить до первого использования 
    большинства других функций системы, иначе может 
    произойти что-то ужасное. 
} procedure iostart; begin 
    lanc := 0; 
    // Английский 
    en[0] := ' 0'; enx[0] := en[0]; 
    en[1] := '.,?!' + chr(39) + '"1'; enx[1] := en[1]; 
    en[2] := 'abc2'; enx[2] := 'ABC2'; 
    en[3] := 'def3'; enx[3] := 'DEF3'; 
    en[4] := 'ghi4'; enx[4] := 'GHI4'; 
    en[5] := 'jkl5'; enx[5] := 'JKL5'; 
    en[6] := 'mno6'; enx[6] := 'MNO6'; 
    en[7] := 'pqrs7'; enx[7] := 'PQRS7'; 
    en[8] := 'tuv8'; enx[8] := 'TUV8'; 
    en[9] := 'wxyz9'; enx[9] := 'WXYZ9'; 
    lanname[0] := 'en'; lanname[1] := 'EN'; lanc := lanc + 2; 
    {// Русский. Может не работать, поэтому закоментирован. 
    ru[0] := en[0]; rux[0] := ru[0]; 
    ru[1] := en[1]; rux[1] := ru[1]; 
    ru[2] := 'абвг2'; rux[2] := 'АБВГ2'; 
    ru[3] := 'дежз3'; rux[3] := 'ДЕЖЗ3'; 
    ru[4] := 'ийкл4'; rux[4] := 'ИЙКЛ4'; 
    ru[5] := 'мноп5'; rux[5] := 'МНОП5'; 
    ru[6] := 'РСТУ6'; rux[6] := 'РСТУ6'; 
    ru[7] := 'фхцч7'; rux[7] := 'ФХЦЧ7'; 
    ru[8] := 'шщъы8'; rux[8] := 'ШЩЪЫ8'; 
    ru[9] := 'ьэюя9'; rux[9] := 'ЬЭЮЯ9'; 
    lanname[2] := 'ru'; lanname[3] := 'RU'; lanc := lanc + 2;} 
    // Инициализация переменных: 
    lan := 0; 
    ke_timex := 10; 
    ke_input := ''; 
    ke_current := -1; 
    ke_time := 0; 
end; 
{ keytoint(кнопка):индекс - преобразование индекса кнопки в число 
    Преобразовует код кнопки (константу) в легко отличаемое число 
    Возращает 0..9 для цифр, 10 для *, 11 для #, -1 для прочего 
}function keytoint(key: integer):integer; begin 
    if (key >= ke_key0) and (key <= ke_key9) then keytoint := key - ke_key0 
    else if (key = ke_star) then keytoint := 10; 
    else if (key = ke_pound) then keytoint := 11; 
    else keytoint := -1; 
end; 
{ lanstr(индекс) - возращает строку для кнопки из текущего языка (lan) 
    индекс - индекс кнопки (полученный из keytoint) 
}function lanstr(key:integer):string; begin 
    if key >= 0 then begin 
        if lan = 0 then lanstr := en[key] 
        else if lan = 1 then lanstr := enx[key] 
        else lanstr := ''; 
    end else lanstr := ''; 
end; 
{ lanlen(индекс) - возращает длину строки кнопки из текущего языка 
    индекс - индекс кнопки (полученный из keytoint) 
}function lanlen(key:integer):integer; begin 
    lanlen := length(lanstr(key)) 
end; 
{ lanchr(индекс,номер) - возращает символ из строки кнопки ... 
    индекс - индекс кнопки (полученный из keytoint) 
    номер - номер символа в строке кнопки, желательно меньше ее длины. 
}function lanchr(key:integer;ind:integer):char; begin 
    lanchr := getchar(lanstr(key),ind) 
end; 
{ iohandle - основная функция системы 
    возращает: надобность repaintа (boolean) 
}function iohandle:boolean; var key:integer; begin 
    key := keytoint(getkeyclicked); // получаем последнюю клацнутую кнопку... 
    iohandle := false; // возращенное по умолчанию значение 
    if key >= 0 then begin // если что-то нажато 
        ke_time := 0; // сброс времени ввода 
        iohandle := true; // перерисовуем. 
        if key < 10 then begin // если нажата цифра 
            if key = ke_current then begin // выбор буквы\символа 
                ke_select := ke_select + 1; 
                if ke_select >= lanlen(ke_current) then ke_select := 0; 
            end else begin // нажата другая кнопка 
                if ke_current >= 0 then 
                    ke_input := ke_input + lanchr(ke_current,ke_select); 
                ke_current := key; 
                ke_select := 0; 
            end; 
        end else if key = 10 then begin // звездочка (backspace) 
             
            if(ke_current >= 10)or(ke_current < 0)then 
                if length(ke_input) > 0 then 
                    ke_input := copy(ke_input, 0, length(ke_input)-1); 
            ke_current := -1; 
            ke_select := 0; 
        end else if key = 11 then begin // решетка (смена языка) 
            if ke_current >= 0 then // если начат ввод, ввести в строку 
                ke_input := ke_input + lanchr(ke_current,ke_select); 
            lan := lan + 1; 
            if lan >= lanc then lan := 0; 
            ke_current := -1; 
            ke_select := 0; 
        end; // тут дописывать else if'ы для прочих кнопок 
        // (после того как допишите их в keytoint) 
    end else begin 
        if ke_current >= 0 then begin 
            ke_time := ke_time + 1; 
            if ke_time >= ke_timex then begin 
                ke_time := 0; 
                ke_input := ke_input + lanchr(ke_current,ke_select); 
                ke_current := -1; 
                ke_select := 0; 
                iohandle := true; 
            end; 
        end; 
    end; 
end; 
// Ниже идет демка 
var    // переменные для демонстрации 
    s, z: string; // строки для вывода, проверки 
    x: integer; // x-координата 
    y: integer; // y-координата 
    c: command; // кнопка выхода 
// Основная процедура прорисовки (для теста) 
procedure maindraw; begin 
    setcolor(239, 235, 231); 
    fillrect(0, 0, getwidth, getheight); 
    setcolor(0, 0, 0); 
    x := 4; 
    y := 4; 
    s := 'Input: ' + ke_input; 
    drawtext(s,x,y); y := y + getstringheight(s); 
    z := lanstr(ke_current); 
    if z <> '' then begin 
        s := '[' + copy(z, 0, ke_select); 
        drawtext(s,x,y); x := x + getstringwidth(s); 
        setcolor(255, 0, 0); 
        s := getchar(z, ke_select); 
        drawtext(s,x,y); x := x + getstringwidth(s); 
        setcolor(0, 0, 0); 
        s := copy(z, ke_select+1, length(z)) + ']'; 
        drawtext(s,x,y); x := 4; y := y + getstringheight(s); 
    end else begin 
        s := '[ ]'; //  
        drawtext(s,x,y); y := y + getstringheight(s); 
    end; 
    s := 'Language: ' + integertostring(lan) + ' ' + lanname[lan]; 
    drawtext(s,x,y); y := y + getstringheight(s); 
    s := '* to erase, # to switch language'; 
    drawtext(s,x,y); y := y + getstringheight(s); 
    repaint; 
end; 
// Основная программа 
begin 
    iostart; 
    ke_input := '?'; 
    // добавляем кнопку выхода: 
    c := createcommand('Exit', cm_exit, 1); 
    addcommand(c); 
    // основной цикл: 
    maindraw; 
    repeat 
        if iohandle then maindraw; 
        delay(100); 
    until getclickedcommand = c; 
    removecommand(c); 
end.