Нужно отладить программу

Const n= 20
Var m :array [1..n] of integer ; 
I,j temp for i :=1 to n do :integer ;
Begin 
Writeln (‘исходный массив:’);
For I:=1 to n do write (M[I]), ‘   ‘); Writeln;
A:=0;
For I:=2 to n do {сортировка «пузырьковым» методом по невозрастанию}
Begin
     For J:=n downto I do
    Begin
        A:=A+1;
If M [J-1]<M[J] then {если элемент справа больше элемента слева, то «вытеснить» его влево- пузырек «всплывает»}
     Begin
K:=M[J-1]; {обмен значениями этих элементов}
M[J-1]:=M[J];
M[J]:=K;
{печатать текущее состояние массива после каждой перестановки}
For L:=1 to n do Write (‘    ’, M[L]);
Writeln (‘Число итерации=’,A);
                 End;
        End;
    End; { завершение сортировки}
End.

Const n= 20;
Var m :array [1..n] of integer ; 
a,k,l,I,j, temp {(for i :=1 to n do)} :integer ;
Begin 
Writeln ('исходный массив:');
For I:=1 to n do write ((M[I]), '   '); Writeln;
A:=0;
For I:=2 to n do {сортировка «пузырьковым» методом по невозрастанию}
Begin
     For J:=n downto I do
    Begin
        A:=A+1;
If M [J-1]<M[J] then {если элемент справа больше элемента слева, то «вытеснить» его влево- пузырек «всплывает»}
     Begin
K:=M[J-1]; {обмен значениями этих элементов}
M[J-1]:=M[J];
M[J]:=K;
{печатать текущее состояние массива после каждой перестановки}
For L:=1 to n do Write ('    ', M[L]);
Writeln ('Число итерации=',A);
                 End;
        End;
    End; { завершение сортировки}
End.