Найти и исправить ошибки в коде с массивом

  Type vector=array[1..32] of integer;
  var Vr, n, i, a, b: integer;
                   X: vector;
                Dev : text;
                name: string;
Procedure Part_1(Vr,n,a,b:integer; var X:vector);
  var i:integer;
Begin
  If Vr<>1 then randomize;
  for i:=1 to n do x[i]:=a+Round((b-a)*Random(100)/100);
end;
Procedure Part_2(n:integer; x:vector); вместо нахождения суммы, вычислить среднеарифметическое значение;второй трети массива вместо второй четверти.
 i: integer;
 sum: real;
begin
randomize;
for i:=1 to 32 do begin
     X[i]:=random(23)-10;
     write(X[i]:3);
end;
writeln;
sum:=0;
i:=32 div 3 + 1;
while i <= 32 div 2 do begin
        write(X[i]:3);
        sum:=sum+X[i];
        i:=i+3;
end;
writeln;
writeln(sum:3:2);
readln;
end;
Procedure Part_3(n,a,b:integer; x:vector); условие  третьей четверти, исправить на-первой половины массива.
  var  n, i, t, t2, min, max1, max2: Integer;
begin
  ReadLn(n);
  for i:=1 to n do Read(x[i]);
  max1:=(n div 2);
  for i:=(n div 2) to (n div 2)+(n div 4) do
    if x[i]>x[max1] then max1:=i;
  min:=(n div 2);
  t:=max1;
  t2:=x[max1];
  for i:=(n div 2) to (n div 2)+(n div 4) do
    if x[i]<x[min] then min:=i;
  x[max1]:=x[min];
  max2:=(n div 2);
  for i:=(n div 2) to (n div 2)+(n div 4) do
    if x[i]>x[max2] then max2:=i;
  WriteLn('Первый максимальный элемент',t,' и его значение',t2); 
  WriteLn('Последний максимальный элемент ',max2,' и его значение ',a[max2]);
  ReadLn;
 end;
Procedure Part_4(n:integer; var R:vector); 
  var i,j,k,buf:integer;
Begin
  For i:=n div 2 + 1 to 3*n div 4 - 1 do
   If r[i]>=0 then
    begin
     k:=i;
     For j:=i+1 to 3*n div 4  do
       If r[j]>=0 then
         If 1/(r[j]+0.1e-30) > 1/(r[k]+0.1e-30) then k:=j;
    buf:=r[i];
    r[i]:=r[k];
    r[k]:=buf;
    end;
end;
 
Begin
  writeln('для вывода на экран введите con');
  writeln('для вывода на принтер введите prn');
  write('для вывода в файл введите его адрес: ');
  readln(name);
  Assign(Dev,name);
  Rewrite(Dev);
  write('введите вариант расчета Vr => ');
  readln(Vr);
  if Vr=0 then
    begin
    n:=17; a:=-3; b:=4;
    r[1] := 1; r[2] := 0; r[3] :=-3; r[4] := 2; r[5] := 0;
    r[6] :=-3; r[7] := 4; r[8] := 3; r[9] := 2; r[10]:= 0;
    r[11]:= 0; r[12]:= 4; r[13]:= 0; r[14]:=-2; r[15]:=-1;
    r[16]:=-1; r[17]:= 1;
    end
      else
        begin
        Write('Введите n,a,b => '); readln(n,a,b);
        Part_1(Vr,n,a,b,r);
        end;
  writeln(dev,'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  writeln(dev,'Исходный массив:');
  For i:=1 to n do
    begin
    write(dev,r[i]:3);
    if i = n div 2 then writeln(dev);
    end;
  writeln(dev);
  writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  part_2(n,r,sg);
 
  writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  part_3(n,a,b,r);
  writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  part_4(n,R);
  writeln(dev,'Упорядоченный массив:');
  for i:=1 to n do
    begin
    write(dev,r[i]:3);
    if i = n div 2 then writeln(dev);
    end;
  writeln(dev);
  writeln(dev,'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
  close(dev);
end.

x[i]:=a+Round((b-a)*Random(100)/100);