Сортировка вставками. Дана последовательность чисел а1, а2, ..., аn. Требуется переставить числа в порядке возрастания. Делается

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.