циклический алгоритм

[gloomy_jr]

Изобразите на экране тараканьи бега(или авторалли, или конные соревнования, или большие гонки или что-нибудь, подобное). Соревнующихся должно быть не менее 3, их движение должно определяться с помощью датчика случайных чисел, после завершения бега объявляется номер победителя (делать ставки и сообщать номер выигравшего).

[Niro]

Вот кусок кода, может не всё верно, но общая идея написана, дальше сами)

  
  max:= 1; 
  x1:= 1;
  x2:= 1;
  x3:= 1;
  randomize;
  while max <= 75 do
    begin
      x1:= x1 + random (4);
      x2:= x2 + random (4);
      x3:= x3 + random (4);
      textcolor (1);
      gotoxy (x1, 5);
      write ('0');
      gotoxy (x2, 10);
      write ('1');
      gotoxy (x3, 15);
      write ('2');

      delay (3000);
      textcolor (0);
      gotoxy (x1, 5);
      write ('0');
      gotoxy (x2, 10);
      write ('1');
      gotoxy (x3, 15);
      write ('2');
      if x1 >= x2 then max:= x1 else max:=x2;
      if x3 >= max then max:= x3;
    end;