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


program tt;uses wincrt;
type  Tmas=array[1..100] of real;
var  d,a:Tmas;  i,j,n:byte;
procedure enter_d(n:byte; var d:Tmas);
begin  
randomize;  
for i:=1 to n do begin    
d[i]:=random(40);    
write(d[i]:0:0,' ');  
end;
writeln;
end;

procedure form_a(n:byte;d:Tmas;var a:Tmas);
begin  
for i:=1 to n do begin    
if odd(i)=true then a[i]:=d[i]/i    
else a[i]:=sqr(d[i]); end;
end;

procedure show_a(a:Tmas);
begin  
for i:=1 to n do
write(a[i]:0:2,' ');
end;
end; 
BEGIN 
ClrScr;  writeln('Введите размер массива: '); 
readln(n); 
enter_d(n,d); 
form_a(n,d,a); 
show_a(a);
END.