Сортировка массивов

type
  MyArr=array[1..10000]of integer;
var
  a:MyArr;
  max,k,i,i1,j,num,elem,pos,n, count,x,y,arg1:integer;
 
 
procedure setarray(var a:MyArr; const max,x,y:integer);
var
  i:integer;
begin
  randomize;
  for i:=1 to max do
    a[i]:=random(y-x+1)+x;
end;
 
procedure initarray(var a:MyArr; const max:integer);
var
  i:integer;
begin
  for i:=1 to max do a[i]:=0;
end;
 
procedure print(a:MyArr; max:integer);
var
  i:integer;
begin
  writeln('Массив:');
  write('[ ');
  for i:=1 to max do
    write(a[i],' ');
  writeln(']')
end;
 
procedure del(var a:MyArr; var max:integer; const k:integer);
var
  i:integer;
begin
  if k>max then
  begin
    writeln('Ошибка!');
    exit
  end;
  for i:=k to max-1 do
    a[i]:=a[i+1];
  dec(max);
end;
 
procedure addnew(var a:MyArr; var max:integer; const elem, pos:integer);
var
  i,temp:integer;
begin
  if pos>max then
  begin
    writeln('k>max!');
    exit
  end;
   
 For i:=max Downto pos Do
   a[i+1]:= a[i];
   a[pos]:= elem; 
   
  
end;
 
procedure replacement(var a:MyArr; const n,max:integer);
var
  i,temp:integer;
begin
   if (n>max) then
    writeln('Ошибка!')
  else
    begin
      for i:=1 to n do 
       begin
        temp := a[i];
        a[i] := a[n+i];
        a[n+i] := temp;
       end;
    end;
end;
 
procedure readfile(var a:myarr);
var
  input: text;
  i: integer;
begin
  assign(input, 'input.txt');
  reset(input);
  i:=1;
  i1:=0;
  while not (eoln(input)) do
  begin     
    read(input, a[i]);
    inc(i);
    inc(i1);
  end;
  close(input);
end;
 
procedure savetofile(var a:myarr);
var i:integer;
    output:text;
begin
  assign(output, 'output.txt');
  rewrite(output);
  
  for i:=1 to i1 do write(output, a[i],' ');
  close(output);
  
end;
 
begin
  initarray(a,max);
  
  //работа с файлом
  {readfile(a);
  print(a,i1);
  savetofile(a);
  }
  writeln('Введите количество элементов массива: ');
  readln(max);
  
  writeln('Задайте диапазон для randomize');
  readln(x,y);
  setarray(a,max,x,y);
  Print(a,max);
 
  writeln('Задайте n для перестановки');
  readln(n);
  if n>max then writeln('Ощибка!')
  else
   replacement(a, n, max);
  print(a,max);
  
  writeln('Введите количество удаляемых элементов: ');
  readln(num);
  writeln('Укажите позиции удаляемых элементов: ');
  for count := 0 to num-1 do begin
     read(i);
     del(a,max,i-count);
   end;
   
   print(a,max);
 
  writeln('Введите количество новых элементов: ');
  readln(num);
  writeln('Задайте значение и позицию');
  for count:=1 to num do begin
   readln(elem,pos);
   arg1:=max+count;
   addnew(a,arg1,elem,pos);
  end;
  
  print(a,max+num);
 
end.