Все сделал...Но есть еще одна проблема...вот кусочик проги:
if (q>x) and (q<(x+19)) and (u<43) and (u>38 ) then bombarding;
кароче,этот кусок делает то,что при попадании предмета на платформу вызываецо процедура,котороя дает предмету новые координаты,и он снова падает.Здесь проблем нет.Но когда я поймал предмет в процедуре,я не могу перейти к следующей:
procedure bombarding;
begin
q:=15;
u:=0;
if (q>x) and (q<(x+19)) and (u<43) and (u>38 ) then sledujushcajaprocedura;
end;
Пожалуста разъясните почему оно не пашет,и как сделать,чтоб все работало!