Как сделать это по информатике

створити презентацію «залізниця», як у файлі railway.exe. має зображуватися рух паровоза по залізничній колії з 2 розгалуженнями. біля розгалужень слід зобразити стрілки, які користувач може перемикати клацанням. результат перемикання має відбиватися на зображенні залізничної колії. у результаті перемикань паровоз спрямовується по одному з трьох маршрутів. зображення паровоза під час руху має повертатися відповідно до вигинів залізничної колії. рух паровоза має починатися після натискання кнопки «поїхали». користувач під час одного перегляду презентації може перемикати стрілки та запускати паровоз довільну кількість разів.кто делал .

Const
  m=10;
  n=6;
var
  a:array[1..m,1..n] of integer;
  i,j,maxr:integer;
  p,maxp:longint;
begin
  Randomize;
  Writeln('Исходный массив');
  maxp:=0;
  for i:=1 to m do
  begin
    p:=1;
    for j:=1 to n do
    begin
      a[i,j]:=Random(99)+1; { интервал [1..99] }
      Write(a[i,j]:3);
      p:=p*a[i,j]
    end;
    if maxp<p then begin maxp:=p; maxr:=i end;
    Writeln
  end;
  for i:=1 to m do
    for j:=1 to n do a[i,j]:=a[maxr,j];
  Writeln('Сформированный массив');
  for i:=1 to m do
  begin
    for j:=1 to n do Write(a[i,j]:3);
    Writeln
  end
end.

Тестовое решение:
Исходный массив
 86 61 76  1 86 64
 93 87 34 66 35 13
 51 39 57  5 71 49
 86 47 26 30 93 80
 58 24 59 57  3 79
 46 81 17 24 11 37
 12 83 56 75 89 16
 50 93 57  1 51 64
 25 35 69 29 46 73
 68 56 68 95 42 62
Сформированный массив
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80

74 : 2 = 37  (остаток 0)
37 : 2 = 18 (остаток 1)
18 : 2 = 9 (остаток 0)
9 : 2 = 4 (остаток 1)
4 : 2 = 2 (остаток 0)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
В ответе записываем остатки с конца подсчетов
ответ : 1001010
74(10) = 1001010(2)  

23 : 2 = 11 (остаток 1)
11 : 2 = 5 (остаток 1)
5 : 2 = 2 (остаток 1)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ : 10111
23(10) = 10111(2)  

17 : 2 = 8 (остатк 1)
 8 : 2 = 4 (остаток 0)
4 : 2 = 2 (остаток 0)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ: 10001
17(10) = 10001(2)  

2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ: 10
2(10)  = 10(2)