Помогите, пожалуйста. Как сделать, чтобы нельзя было проходит через стену?
Uses graphABC, ABCObjects;
var man, stone: RectangleABC;
xman, yman: integer;
procedure KeyDown(key: integer);
begin
if key=VK_D then xman:=xman+50;
if key=VK_A then xman:=xman-50;
if key=VK_W then yman:=yman-50;
if key=VK_S then yman:=yman+50;
end;
begin
xman:=50;
yman:=50;
man:=RectangleABC.Create(xman, yman, 50, 50, clBlue);
stone:=RectangleABC.Create(250, 150, 50, 50, clRed);
while true do begin
onKeyDown:=KeyDown;
man.MoveTo(xman, yman);
sleep(10);
end;
end.

Знатоки русского языка вам вряд ли помогут. Обратитесь, пожалуйста, к программистам в разделе "Информатика".