Как сделать чтобы при нажатии на маленькие буквы клавиатуры, программа писала маленькие?

Question

[Programist18946]

Здравствуйте, пишу программу на паскале,

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.

но при нажатии маленьких букв на клавиатуре , он все равно выдает большие помогите пожалуйста

Answer 1

[Василий Банников]

У клавиатуры нет такого понятия как "маленькие буквы" - только нажатые кнопки
Так что тебе нужно нужно самостоятельно на этом моменте:
writeln(key + ' ' +chr(key));
Писать буквы в нижнем регистре.

Answer 2

[Hemul GM]

LowerCase(chr(key));