gistfile1.txt

procedure delete(var arr : array of integer; index : integer; var len : integer);           
var i : integer;                                                                            
begin                                                                                       
     for i := index to len do begin                                                         
         arr[i] := arr[i+1];                                                                
     end;                                                                                   
     dec(len);                                                                              
end;