Составьте в среде TPascal код программы, реализующей метод простых перестановок

[I am Russia]

не могу разобраться чего нехватает помогите пожалуйста.заранее спасибо.
ВОТ ЗАДАНИЕ:2. Составьте в среде TPascal код программы, реализующей метод простых перестановок, используя часть кода, представленного в теоретический части инструкционной карты. Запустите эту программу на выполнение.
ВОТ ЧАСТЬ КОДА:

Var
i,j,e,g: integer;
Begin
for i := 2 to c do
begin
e := A[i];
j := 1;
while (e > a[j]) do
j := j + 1;
for g := i-1 downto j do
a[g+1] := a[g];
a[j] := e;
end;
End;

помогите срочно нужно.

[Stilet]

Тут не хватает светлой головы и желания учиться )

const c=10000;
Var
i,j,e,g: integer;

Описываем массив
a:array[1..c] of integer;
Begin

Вводим массив:
for i := 1 to c do readln(a[i]); 

Это из твоего кода.
for i := 2 to c do begin
 e := A[i];
 j := 1; 
 while (e > a[j]) do j := j + 1;
 for g := i-1 downto j do a[g+1] := a[g];
 a[j] := e;
end;

Выводим массив
for i := 1 to c do writeln(a[i]); readln;

End.

Идея ясна?

[I am Russia]

Спасибо большое