Помогите написать программу на паскале)

сортировка Пузырьком

Const

K = 13;

Var

A:array[1 ... K] of integer;

i, j:integer;

Begin

{Заполнение массива}

Write ('Исходный массив: ') ;

For i: = 1 to K do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ')

End;

WriteLn;

{Сортировка пузырьком}

For i: = 1 to K do

For j: = 1 to K-1 do

if A[j]>A[j+1] then Swap (A[j], A[j+1]) ;

{Вывод массива}

Write ('Отсортированный массив: ') ;

For i: = 1 to K do

Write (A[i],' ')

End.