uses
  crt;

procedure Down2Key;
var
  key: char;
  flag, dk_1, dk_2: boolean;
begin
  flag := true;
  dk_1 := false;
  dk_2 := false;
  while flag do
  begin
    key := Readkey;
    if Ord(key) in [49, 81, 113, 201, 233] then
    begin
      if (Ord(key) = 49) and not dk_1 then dk_1 := true;
      if (Ord(key) in [81, 113, 201, 233]) and not dk_2 then dk_2 := true;
    end
    else
    begin
      dk_1 := false;
      dk_2 := false;
    end;
    if dk_1 and dk_2 then flag := false;
  end;
end;

begin
  Down2Key; // Вызываем процедуру
  WriteLn('Вы нажали Q+1 - программа была заершена :)');
end.