Вычислить среднеквадратичное значение каждых третьих элементов второй половины массива

Program Lab4;
const Title =' Работа 4, Вар. 387.';
n=33;
type vect=array [1..n] of integer;
var a,b,i:integer;
    X:vect;
    S,mn,min:real;
    
 procedure VECTOR (n,a,b:integer; var X:vect);
 var i: integer;
 begin
   randomize;
   for i:= 1 to n do 
   X[i]:=a+round((b-a)*random(10));
 end;
 
 
 function SUM(n:integer; X:vect):real;
 Var i,sum:integer;
 S:real;
 begin
 sum:=0;
    for i:=3 to (n div 3) do 
      if (i mod 2)=0 then
        sum:=sum+X[i]*X[i];
        S:=sqrt(sum/n);
        end;
 
 function MIN1 (n:integer; X:vect):real;
 var  i:integer;
 mn, min:real;
 begin
      mn:=0;
      for i:=round(n/1)+1 to round(1*n/3) do
        if abs(X[i])>mn then  min:=X[i];     
        writeln('min',min);
end;
 
 procedure porjadok (n:integer; var X:vect);
 var i,j,k,c:integer;
 begin
      for i:=1 to (n div 2)-1 do
        if (X[i] mod 2)=0 then
        begin
        k:=i;
        for j:=i+1 to n div 2 do
          if (X[i] mod 2)=0 then
               if (X[j]<X[k]) then  X[k]:=c;
        end;
 end;
 
procedure writevect(n:integer; X:vect);
    var i:integer;
   begin
   randomize;
      for i:=1 to n do
       begin
    X[i]:=a+round((b-a)*random(100));
        write(X[i]:5);
   end; 
 end;
 procedure writeMIN1(n:integer; X:vect);
 var  i:integer;
begin
for i:=1 to n do
writeln(min);
end;
procedure writeSUM(n:integer; X:vect);
  Var i:integer;
 S:real;
 begin
 for i:=1 to n do
        write(S:3);
        end;
 procedure writeporjadok(n:integer; X:vect);
 var i,k:integer;
 begin
      for i:=1 to n do
       Write(X[k]:3);
        end;
 begin 
   write('   Интервал значений от a= ');readln(a); 
   write('до=  ');readln(b); 
writeln;writeln(' ':25,'Исходные данные'); 
writeln('Размерность вектора n = ',n); 
writeln('Интервал [',a,',',b,']');writeln; 
writeln(' ':26,'Результаты расчета'); 
 
writeln('Вектор X из ',n,' элементов в интервале [',a,',',b,'], полученных'); 
writeln('при помощи генератора случайных чисел'); 
writevect(n,X);
writeln;
writeln('среднеквадратичное значение каждых третьих элементов второй половины массива'); 
writeSUM(n,X);
S:=sum(n,X); writeln('  S=',S:3);          
 
writeln('наименьший по модулю элемент первой трети масcива '); 
writeMIN1(n,X);  
  min:=X[i]; writeln('',min:5);
  
writeln('Упорядочить чётные по значению элементы первой половины массива по убыванию обратных ');  
writeporjadok(n,x);
end.