написать программу сортировки массива по возрастанию из 10 случайных элементов. ПАСКАЛЬ

var a: array[0..9] of Integer;i,k,b,c: Integer;beginfor i:=0 to 9 do begina[i]:=Random(100);writeln(i+1,' число: ',a[i]);end;for i:=0 to 9 dobeginfor k:=0 to 9 dobeginif a[i]<a[k] thenbeginb:=a[i];c:=a[k];a[i]:=c;a[k]:=b;k:=0;end;end;end;writeln('Числа по возрастанию:');for i:=0 to 9 dowriteln(i+1,' число: ',a[i]);beginend;end.