Довести до ума функцию "ловли клавиш"

function condition : integer;
var
    i, j: integer; 
begin
    i := 0;
    k:='0';
        inc(i);
        gotoxy(15,15);
        write(i);
          k:='0';
        if keypressed then begin
            k := readkey;
            write(ord(k));
            if ord(k) = 37 then 
                key_l := true;
            
            if ord(k) = 38  then 
                key_u := true;
           
            if ord(k) = 39 then 
                key_r:=true;
      
    end;
    if key_l and (not(key_u)) then condition:=1;
    if key_r and (not(key_u)) then condition:=2;
    if (key_l) and (key_u) then condition:=3;
    if (key_r) and (key_u) then condition:=4;
    if (not(key_l)) and (not(key_r)) and key_u then condition:=5;
    if (not(key_l)) and (not(key_r)) and (not (key_u)) then condition:=0;
end;