Компилятор не распазнает функцию readkey и keypressed

[_PROGRAMM_]

помогите, пожалуйста. Мой компилятор не распознает функции readkey и keypressed вот код программы:

Uses
graph,
ctr;
var s              : integer;
device, mode, a, b : integer;

begin
initGraph(device, mode, 'c:/Pascal/egavga.bgi');

a:=10;
b:=200;
putPixel(a, b, red);
while 1=1 do
begin
s:=ReadKey;
case s  OF
8 :begin
          putPixel(a, b, black);
          a:=a-5;
          PutPixel(a,b,random(10));
      end;
2 : begin
          putPixel(a, b, black);
          a:=a+5;
          PutPixel(a,b,random(10));
      end;
4 : begin
          putPixel(a, b, black);
          b:=a-5;
          PutPixel(a,b,random(10));
      end;
6 : begin
          putPixel(a, b, black);
          a:=a+5;
          PutPixel(a,b,random(10));
      end;
0 : exit;
 else;
  end;{case}
end;{while}
readln;
end.

Не обращайте внимание на ошибки в коде.

[DomiNick]

ReadKey кажется возвращает Char а не Integer.....



P.S.

Во первых очепятка в третьей строке: не "ctr", а "crt"
А во вторых надо поменять тип переменной s: "var s: char;" и все варианты в "case" (цифры) поместить в одинарные кавычки...

[_PROGRAMM_]

Спасибо. Все заработало. Ошибка в коде была очень тупая.