Если несколько команд набрали однообразное количество очков, то места между ними

Program Premier_liga_2;

var B, Diff: array [1..16] of integer;

   Team: array[1..16] of string;

   I, K, X, Z, P: integer;

   St: string;

begin

 writeln('Введите наименования команд и приобретенные ими очки');

 for I:=1 to 16 do

 begin

   write(I, ' Название: '); readln(Team[I]);

   write('Очки: '); readln(B[I]);

   write('Забитые мячи: '); readln(Z);

   write('Пропущенные мячи: '); readln(P);

   Diff[I]:= Z-P;

 end;

 for K:=1 to 15 do

 for I:=1 to 16-K do

   if (B[i] lt; B[I+1]) or  

      ((B[i] = B[I+1]) and (Diff[i] lt; Diff[I+1])) then

   begin

       X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;

       St:=Team[I]; Team[I]:=Team[I+1];

       Team[I+1]:=St;

   end;

 for I:=1 to 16 do

 begin

   for K:=1 to 18-length(Team[I]) do

     Team[I]:=Team[I]+' ';

   writeln(I:2,' ',Team[I]:18,B[I]:2)

 end;

end.