Пример. Сортировка по возрастанию массива A из N целых чисел включением с линейным поиском.

program Sort_Include1;
 var A:array[1..100] of integer;
 N,i,k,x : integer;

begin
 write('количество элементов массива ');
 read(N);
 read(A[1]); {for i:=1 to n do read(A[i]);}
 {k - количество элементов в упорядоченной части массива}
 for k:=1 to n-1 do
   begin
    read(x); {x:=A[k+1];}
    i:=k;
    while (i>0)and(A[i]>x) do
      begin
        A[i+1]:=A[i];
        i:=i-1;
      end;
     A[i+1]:=x;
   end;
 for i:=1 to n do write(A[i],' '); {упорядоченный массив}
end.

---