{See programm sorteerib arvude rida lisamisega sorteerimise algoritmi j„rgi}
program LisamisegaSort;
uses crt;
const arve=1000;
type massiiv = array[0..arve] of integer;

var a:massiiv;
    i, j, UusPos, Pos, UusArv: integer;
{a - sorteeritav massiiv
UusArv - arv, mida “igele kohale paigutatakse
UusPos - positsioon, kus paiknes UusArv
Pos - positsioon, kuhu arvu proovitakse}
begin

{Arvude sorteerimine}
   a[0]:=-maxint;
   for UusPos:= 2 to arve do
   begin
       UusArv:=a[UusPos];
       Pos:=UusPos;
       while a[pos-1]>UusArv do
       begin
            a[pos]:=a[pos-1];
            pos:=pos-1;
       end;
       a[pos]:=UusArv;
   end;
{Tulemuse v„ljastus}
   clrscr;
   j:=1;
   for i:= 1 to arve do
   begin
       write(a[i]:6);
       inc(j);
       if j=10 then begin writeln; j:=1; end;
   end;
end.