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

Дан массив размера N.

Массив отсортировать в порядке возрастания.

Для отладки программы числа последовательностей сформировать с помощью генератора случайных чисел.

Uses Crt;

Const

N = 13;

Var

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

i, j, Min, B:integer;

Begin

ClrScr;

Randomize;

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

For i: = 1 to N do

Begin

A[i]:=random (2*N+1) - N;

Write (' ', A[i])

End;

WriteLn;

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

For i: = 1 to N do

Begin

Min:=i;

For j: = i+1 to N do

if A[j] < A[Min] then Min:=j;

B:=A[i];

A[i]:=A[Min];

A[Min]:=B;

Write (' ', A[i])

End;

ReadLn

End.