Как поставить на паузы на Ютубе через джойстик Xbox360?​

var

       a: array [1..30] of Integer;

       min, max: Word;

       i: Byte;

begin

       Randomize;

       

       for i := 1 to 30 do

               a[i] := Random (20000);

       

       max := a[1];

       min := a[1];

       

       for i := 2 to 30 do begin

               if a[i] > max then

                       max := a[i];

               if a[i] < min then

                       min := a[i]

       end;

       Write (min + max)              

end.    

Есть приложение FlowChart для создания блок-схем из кода, я его и использовал.