Това е пример за PASKAL
Процедурата връща винаги стринг, който се отсява в зависимост от стойностите на променливите D и G от тип Char. В пример1 са зададени стойности '0' до '9', а в пример2 'a' do 'z'.
Може да направиш още много подобрения във функцията.
Това са само дребни насоки.

uses Crt,Drivers;

function RetEvent(D,G:Char;Row,Col:integer):string;
var
Event:TEvent;
AStr:string;
begin
AStr:='';
repeat
GetKeyEvent(Event);
if (Event.What<>0) then
if (EVent.CharCode in [D..G]) then
AStr:=AStr+Event.CharCode
else
if Lo(Event.KeyCode) = 8 then
AStr:=Copy(AStr,1,Pred(length(AStr)));
GotoXY(Col,Row);
Write(AStr);
ClrEol;
until Event.KeyCode = kbEnter;
RetEvent:=AStr;
end;

var
AStr:string;
BStr:string;
begin
ClrScr;
AStr:=RetEvent('0','9',1,1);
BStr:=RetEvent('a','z',2,1);
end.