Сортировка

[HixoH]

Помогите перевести прогу на С

Упорядочить целочисленный массив А[1..n] по не убыванию,
используя следующий метод: для i от 2 до n каждый элемент А[i] вставляется на свое место в упорядоченной ранее части массива А[1],…, A[i — 1]. При этом, естественно, если это необходимо, происходит сдвиг элементов массива.

[/
Uses crt;
var m:array[1..100] of integer;
    i,j,x,k,n:integer;
    label 1;
begin
clrscr;
write ('Kol-vo elementov = ');
readln (n);
for i:=1 to n do begin
                 write ('Vvedite ',i,' element ');
                 readln (m[i]);
                 end;
writeln (' Polecheny chisla ');
For i:=1 to n do write (m[i]:3);
writeln;
k:=0;
 for i:=2 to n do
 begin
   x:=m[i];
   j:=i-1;
   while (x<m[j]) and (j>=1) do
   begin
     m[j+1]:=m[j];
     j:=j-1;
     k:=k+1;
     if j=0 then goto 1;
   end;
  1: m[j+1]:=x;
 end;
 writeln(' SoPTuPoBka BCTABKAMU ' );
 for i:=1 to n do
 write(m[i]:3);
Readln
end.