Pascal ABC

[Никол@]

народ помогите мне с задачей нужно на паскале изобразить столкновение двух машин! нужно сначала ввести их скорости: если скорости равные то они должны сталкиваться и отталкиваться, а если скорость одной больше скорости другой то одна должна сбивать другую машину и ехать дальше!
У меня есть тут что я пытался сделать но там ездит только одна машина

PHP код:

uses ABCObjects, crt;

const delay=2;

var
 v1, v2: integer;
  p: PictureABC;
   x,y: integer;
begin
 write('Скорость первой машины: ');
 readln(v1);
 write('Скорость второй машины: ');
 readln(v2);
 write('Результат столкновения: ');
      begin
  x:=-100;
  y:=200;
  p:=PictureABC.Create(x,y,'avtomobil2.png');
  begin
  for x:=0 to 200 do
    begin
      Sleep(delay);
      p.MoveOn(1,0);
       begin
x:=500;
y:=200;
p:=PictureABC.Create(x,y,'avtomobil.png');
  begin
  for x:=0 to 200 do
      begin
      Sleep(delay);
      p.MoveOn(-1,0);



    end;


end;
end;
end;
end;
end;
end. 


[Никол@]

рисунки я незнаю как сюда скинуть