Дана задача в виде текстового описания, по нему составить алгоритм.

Последовательно просматривая элементы массива A2,A3,...,An(начиная со второго), каждый новый элемент Ai(а и-тое) вставляем на подходящее место в уже упорядоченную совокупность A1,...,Ai-1. Это место определяется последовательным сравнением Ai с упорядоченными элементами A1,...,Ai-1.

По этому описанию, необходимо составить код алгоритма сортировки.

Типа, так, д,а? ))

const
  n= 20;

type
  tElement= integer;

var
  a: array [1..n] of tElement;
  b: tElement;
  i,j,k: integer;

begin
  for i:=1 to n do a[i]:=Random(n);
  for i:=1 to n do Write(a[i]:3);
  WriteLn;
  for i:=2 to n do begin
    j:=1;
    while (j<i) and (a[j]<=a[i]) do Inc(j);
    if j<i then begin
      b:=a[i];
      for k:=i-1 downto j do a[k+1]:=a[k];  // либо: Move(a[j],a[j+1],(i-j)*Sizeof(tElement));
      a[j]:=b
    end
  end;
  for i:=1 to n do Write(a[i]:3);
  ReadLn
end.