Pascal. Массивы.

[and-nmr]

CONST N=100;
VAR X: ARRAY[1..N] OF REAL;

Упорядочить массив X по неубыванию (т.е. переставить
его элементы так , чтобы для всех К выполнялось
x(к)<=x(к+1) используя следующий алгоритм сортировки
(упорядочения) : сортировка вставками : пусть первые
k элементов массива уже упорядочены по неубыванию;
берется (k+1)-й элемент и размещается среди первых
k элементов так, чтобы упорядоченными оказались уже
(k+1) первых элементов ; этот метод применяется при
k от 1 до n-1.


помогите кто чем может))))).....