Дан линейный неупорядоченный массив А,состоящий из 20 целых чисел.Составить программу,которая определяет количество инверсии в массиве,т.е таких нас элементов,в которых большее число находится левее меньшего — Pascal(Паскаль)

uses crt;
var
        a:array[1..20] of integer;
  i,s:integer;
 
begin
    clrscr;
    s:=0;
    for i:=1 to 20 do
      begin
        writeln('вводите ',i,' число');
        readln(a[i]);
      end;
    for i:=1 to 19 do
        if a[i]>a[i+1] then
           s:=s+1;
    for i:=1 to 20 do
        write(a[i],' ');
    writeln;
    writeln(s);
          readln;
end.