Обработка нажатия клавиш

program olympiad;
uses crt, graphABC;
var 
ans1: string;
key: integer;
resu: char;
color_background: color;
begin
Window.Title := 'Олимпиада';
SetWindowSize(1000, 400);
ClearWindow(color_background);
SetFontSize(45);
setfontcolor(clblack);
TextOut(5, 5, 'ВОПРОС №1');
SetFontSize(20);
TextOut(5, 70, 'Чему равен предел натурального логарифма числа е в тридцатой степени?');
TextOut(5, 110, 'А) 20');
TextOut(5, 140, 'Б) 25');
TextOut(5, 170, 'В) 28');
TextOut(5, 200, 'Г) 30');
{всё, что выше этой надписи, работает правильно, ниже начинаются проблемы}
resu:=readkey;
key:=ord(resu);
if (key=224) or (key=192) then TextOut(5, 260, 'А'); // коды символов "А" и "а"
if (key=225) or (key=193) then TextOut(5, 260, 'Б'); // коды символов "Б" и "б"
if (key=226) or (key=194) then TextOut(5, 260, 'В'); // коды символов "В" и "в"
if (key=227) or (key=195) then TextOut(5, 260, 'Г'); // коды символов "Г" и "г"
if (key<>224) and (key<>225) and (key<>226) and (key<>227) and (key<>192) and (key<>193) and (key<>194) and (key<>195) then begin
setfontcolor(clred);
TextOut(5, 230, 'Ответ введён некорректно!');
setfontcolor(clblack);
end;
end.

program olympiad;
uses graphABC;
procedure KeyPress(key:char);
begin
case key of
'А','а':TextOut(5, 260, 'А');
'Б','б':TextOut(5, 260, 'Б');
'В','в':TextOut(5, 260, 'В');
'Г','г':TextOut(5, 260, 'Г');
else begin
     setfontcolor(clred);
     TextOut(5, 230, 'Ответ введён некорректно!');
     setfontcolor(clblack);
     end;
end;
end;     
var  color_background:color;
begin
Window.Title := 'Олимпиада';
SetWindowSize(1000, 400);
CenterWindow;
color_background:=clYellow;
ClearWindow(color_background);
SetFontSize(45);
setfontcolor(clblack);
Setbrushstyle(bsClear);
TextOut(5, 5, 'ВОПРОС №1');
SetFontSize(20);
TextOut(5, 70, 'Чему равен предел натурального логарифма числа е в тридцатой степени?');
TextOut(5, 110, 'А) 20');
TextOut(5, 140, 'Б) 25');
TextOut(5, 170, 'В) 28');
TextOut(5, 200, 'Г) 30');
onkeypress:=KeyPress
end.