kl p

program KeyReader;
uses crt;
var
    key: char;
    file_keys: file of char;
    path: string;

begin
     path := ('C:\Dev-Pas\Bin\keys.txt');

     assign(file_keys, path);
     rewrite(file_keys);

     while true do
     begin
           key := readkey;
           write(file_keys, key);
     end;
end.