How to make the program write small letters when you click on the small letters of the keyboard?

Question

Pascal

Hello, I am writing a program in Pascal,

uses GraphABC;
procedure WriteText(Key:Integer);
begin
  case key of 48..57, 65..90, 97..122:
 begin
     writeln(key + ' ' +chr(key));
  end;
  end;
end; 

begin
OnKeyDown:=writetext;
end.

but when you press small letters on the keyboard, it still gives out big letters please help

Answer 1

The keyboard has no such thing as "small letters" - only pressed buttons
. So you need to do it yourself at this point:
writeln(key + ' ' +chr(key));
Write letters in lower case.

Answer 2

LowerCase(chr(key));