sortowanieWstawianie

       program sorter;
       uses crt;
       var
       x,a,b,c,d:integer;
       k1,i1,i,j:byte;
       tab1:array[1..10]of byte;
       tab2:array[1..10]of byte;

       procedure w1;
       begin;
       write('k1    ');
       for i:=1 to 10 do begin;
                         write(' ',i,'  ');
                         end;
       writeln(' ' );
       write('tab1: ');
       for i:=1 to 10 do begin;
                         write('[',tab1[i],'] ');
                         end;
       writeln(' ');
       end;

       procedure w2;
       begin;
       write('i1    ');
       for i:=1 to 10 do begin;
                         write(' ',i,'  ');
                         end;
       writeln(' ' );
       write('tab2: ');
       for i:=1 to 10 do begin;
                         write('[',tab2[i],'] ');
                         end;
       writeln(' ');
       end;

       procedure przes(x:byte); {procedura do przesuwania tablicy od indeksu x, o 1 w prawo}
       begin;
       for i:=10 downto x+1 do begin;
                             tab2[i]:=tab2[i-1];
                             end;
       end;
 begin;
 clrscr;


 tab1[1]:=10;
 tab1[2]:=8;
 tab1[3]:=6;
 tab1[4]:=4;
 tab1[5]:=2;
 tab1[6]:=1;
 tab1[7]:=3;
 tab1[8]:=5;
 tab1[9]:=7;
 tab1[10]:=9;
 w1;
 w2;
 i1:=3;
 x:=3;
 i1:=0;

 for d:=1 to 10 do begin;
 x:=tab1[d];
 clrscr;
 w1;w2;
 readkey;
 for c:=1 to i1+1 do begin
  if c>i1 then begin
               tab2[c]:=x;
               i1:=i1+1;
               break;
               end
          else begin
               if tab2[c]>x then begin
                                 przes(c);
                                 tab2[c]:=x;
                                 i1:=i1+1;
                                 break;
                                 end;

               end;
               end;
    end;
               w1;w2;

 readkey;
 end.