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.