program posun; uses Crt; Var i, j : integer; Znak : Char; begin ClrScr; {smaze obrazovku} Window(1, 1, 80, 25); {definuje textove okno - zde je maximalni} Write('klavesy xwad k-konec'); i := 40; j := 12; GotoXY(i, j); Write('X'); Repeat Znak := ReadKey; Case Znak of 'x' : Begin {dolu} j := j + 1; GotoXY(i, j); Write('X'); End; 'w' : Begin {nahoru} j := j - 1; GotoXY(i, j); Write('X'); End; 'a' : Begin {doleva} i := i - 1; GotoXY(i, j); Write('X'); End; 'd' : Begin {doprava} i := i + 1; GotoXY(i, j); Write('X'); End; End; GotoXY(60, 1); Write('i = ', i, ' j = ', j); Until Znak = 'k'; end.