Опишіть пакетний принцип передавання даних

Program adikalok;
uses crt;
const n=10;
var
  a:array [1..10] of integer;
  i,min,max:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
{ищем номера мин и мах}
  min:=1;
  max:=1;
  for i:=1 to n do
    begin
      if a[min]>a[i] then min:=i;
      if a[max]<a[i] then max:=i;
    end;
  if min<max then //min находится левее чем max
    begin
      for i:=max downto min+2 do
      a[i]:=a[i-1];
      a[min+1]:=0;    
     end
       else //min находится правее чем max
    begin
      for i:=max to min do
      a[i]:=a[i+1];
      a[min]:=0;    
     end;
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998