procedure ZATRID(var A:TYPPOLE;  {Razene pole     }
                 N:integer     {Pocet prvku pole});
          {Procedura seradi zadane pole metodou zatridovani}

var I,J : INDEX;
    X : integer;

begin
  for I := 2 to N do
  begin
    X := A[I];
    A[0] := X;
    J := I-1;
    while X<A[J] do
    begin
      A[J+1] := A[J];
      J := J-1
    end;
    A[J+1] := X
  end
end; {Procedura ZATRID}