Вычислить значения элементов одномерного целочисленного массива Y в интервале (-8 ,8)

Uses crt;
Var
y: Array[1..37] of Integer;
i,s: Integer;
sr: Real;
BEGIN
Clrscr;
Randomize;
Writeln('Исходный массив');
For i:=1 to 37 do
begin
  y[i]:=Random(17)-8;
  Write(y[i]:5);
end;
For i:=25 to 37 do
If i mod 2=0 Then
s:=s+Sqr(y[i]);
sr:=Sqrt(s);
Writeln;
Writeln('Среднеквадратичное значение каждых вторых элементов последней трети массива ',sr:2:2);
Readln
END.

program pr_4;
uses crt;
var i,j,n,c,k,bliz,nomer,a,chislo,b,g:integer;
    x:array [1..50] of integer;
    sum,qa:real;
BEGIN
clrscr;
{Randomize;  }
writeln('------------- PART 1 ---------------');
writeln;
write('vvedite a,b,N =>  '); read(a,b,N);
for i:=1 to n do
  begin
   x[i]:=round((b-a+1)*random(100)/100+a);
   write(x[i]:5,'  ');
   if (i mod 10)=0 then writeln;
  end;
 
writeln;
writeln('------------- PART 2 ---------------');
writeln;
sum:=0;
for i:=3 to (n div 3) do
   if (i mod 3)=0 then sum:=sum+sqr(x[i]);
qa:=sqrt(sum/n);
writeln('srednekvadratichnoe znachenie = ',qa:5:2);
 
writeln;
writeln('------------- PART3 ----------------');
writeln;
write('vvedite chislo => '); readln(chislo);
 
g:=1000;
for i:=round(3/4*n) to n do
begin
if x[i] mod 2 =0 then
   if abs(x[i]-chislo)<g then
    begin
     bliz:=x[i];
     nomer:=i;
     g:=abs(x[i]-chislo);
    end;
end;
writeln('X[',nomer,'] = ',bliz:2, '   Delta = ', g);
 
Writeln;
writeln('-------------- PART 4 ----------------');
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[j] mod 2) =0 then
        if abs(X[j])<abs(X[k]) then k:=j;
 
c:=X[i]; X[i]:=X[k]; X[k]:=c;
end;
for i:=1 to n do
  begin
   write(X[i]:5);
   if i mod 10 =0 then writeln;
  end;
 
readln;
END.