exam script pascal for ascending

program ascending;
uses crt;
const
       n=5;
       a:array[1..n] of integer = (25,22,20,12,30);
var
    j,k,temp:integer;
begin
     clrscr:
      for j:= 1 to n do begin
       writeln('A[',j,'] =',a[j]);
       end;
      for j:=1 to n-1 do begin
        for k:=n downto j+1 do begin
         if A[k] < A[k-1] then begin
            temp:=a[k];
            a[k]:=a[k-1];
            a[k-1]:=temp;
           end;
          end;
end;
writeln;
for j:=1 to n do begin
writeln('A[',j,']=',a[j]);
end;
end.