procedure swap2(one:integer;two:integer);
var temp:integer;
begin
  temp:=one;
  one:=two;
  two:=temp;
end;

procedure select_sort(tab : array of integer);
var min,min_i:integer;
begin
     for i:=0 to tab_size-1 do
     begin
          min:=tab[i];
          for j:=i to tab_size-1 do
          begin

                if(tab[j]<=min) then
                begin
                  min:=tab[j];
                  min_i:=j;
                end

          end;
          swap2(tab[j],tab[min_i]);
     end;

end;

procedure insert_sort(tab : array of integer);
begin
  for i:=0 to tab_size-1 do
    begin
         j:=i;
         while (j>1) do
         begin
              if(tab[j]<tab[j-1]) then swap2(tab[j-1],tab[j]);
              j:=j-1;
         end;
    end;

end;