Сортировка обменами

Program pro;
Const Nmax = 99;
var
a:Array[1..Nmax] of real;
p:Real;
n,i,j:integer;
begin
//cls;
writeln('Введите количество символов');
readln(n);
writeln('Введите массив чисел');
For j:=1 To n Do
read(a[j]);
{Сортировка}
For i:=1 To n Do
 For j:=1 To n-i Do
  If a[j]>a[j+1] then
  Begin
   p:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=p
   end;
write('Отсортированный массив чисел: ');
for j:=1 to n do
write(a[j],' ');
end.

kol:=0;
For i:=1 To n Do
 For j:=1 To n-i Do
  If a[j]>a[j+1] then
  Begin
   kol:=kol+1;//вот и все
   p:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=p
   end;

Program pro;
var
a:Array[1..88] of real;
p,s:Real;
n,i,j:integer;
begin
cls;
writeln('Введите количество чисел');
readln(n);
writeln('Введите массив чисел'); 
For j:=1 To n Do
read(a[j]);
{Сортировка}
s:=0;
For i:=1 To n Do
 For j:=1 To n-i Do
  If a[j]>a[j+1] then
  Begin
  s:=s+i; // ВОТ ОНА ОШИБОЧКА, нужно i поставить, а не 1 
   p:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=p;
   end;
write('Отсортированный массив чисел: ');
for j:=1 to n do
write(a[j],' ');
writeln;
write('Количество перестановок в массиве: ', s);
end.