Adatbevitel konzol alkalmazásba

begin
  b:=true;
  FInput:=GetStdHandle(STD_INPUT_HANDLE);
  WriteLn('Close: esc');
  while b do begin

    ReadConsoleInput(FInput, ir[0], 32, count);

    for i:=0 to count-1 do begin

      if ir[i].EventType=KEY_EVENT then begin
        with ir[i].Event.KeyEvent do begin

          if bKeyDown then begin

            case Ord(AsciiChar) of
              27: b:=false;
…