Сортировка положительных элементов методом прямого выбора .программа.Паскаль

const   n=20; var   a:array[1..n] of integer;   i,j,k,x:integer; begin   Randomize;   Writeln('Исходная последовательность');   for i:=1 to n do begin a[i]:=Random(50)+1; Write(a[i]:3) end;   Writeln;   for i:=1 to n-1 do begin     k:=i; x:=a[i];     for j:=i+1 to n do       if a[j]