var
c:char;
begin
c:=readkey;
case c of
'1'..'9','0': writeln('введена цифра');
 else write('символ');
end
end.

function myReadKey: Char;

  function upchar(ch:char):char;
  {Поднимает символ в верхний регистр}
  begin
    upchar:=char(byte(ch)-$20*byte(ch>#96)-$30*byte(ch>#$DF));
  end;

var ch: char;
begin
  repeat
    ch := upchar(readkey);
    if  ch in ['0' .. '9'] then
      begin gotoxy({где-то}); writeln('введена цифра') end
    else if not (ch in charSet) then
      begin gotoxy({где-то}); writeln('не буква, или эта буква уже была') end;
  until ch in charSet;
  exclude(charset, ch);
  myReadKey := ch
end;

var ch: char;
x,y: byte;
begin
repeat
ch := upchar(readkey);
if ch in ['0'..'9'] then
begin
gotoxy(x:0;y:15);-вот здесь!!!
writeln ('введена цифра')
end;
else if not (ch in charSet)then
begin
gotoxy (x:0;y:13);
writeln('не буква, или эта буква уже была')

x:=0; y:=15;

repeat
 ch := upchar(readkey);
 if ch in ['0'..'9'] then
 begin
  x:=0;
  y:=15;  
  gotoxy(x,y);    
  writeln ('введена цифра');
 end  else if not (ch in charSet) then
 begin
  x:=0
  y:=14
  gotoxy (x,y);
  writeln('не буква, или эта буква уже была'
 end;
until {...}