умоляю, Пожалуйста помогите составить программу

Только метод пузырька.Var a: array[1… 500] of integer; b,i,j: integer; Begin randomize; for i: =1 to 500 do a[i]: =random (101); for i: =1 to 409 do //метод пузырька for j: =i+1 to 500 do if a[j]>a[i] then begin b: =a[j]; a[j]: =a[i]; a[i]: =b; end; End.