Модернизация определения инверсий

var
  x, k, i, j, n:integer;
  a: array [1..75] of integer;
begin
  for i:=1 to 75 do
  begin
    readln (x);
    a[i]:=x;
  end;
  k:=0;
  write ('S=');
  for i:=1 to 74 do
  begin
    for j:=i+1 to 75 do
    begin
      if (a[i] > a[j])
      then begin
      k:=k+1;
      n:=n+1 end;
    end;
    write(n, '+');
      n:=0;
  end;
  write ('= ', k);
end.