Задача по PASCAl. Помогите сделать.

[Waia]

Дан массив X1 .... X12.

Сформировать массив где Yi = (Xi * i)/кор|Xi| . Определить S- сумму Yi меньших X2 .

[alex_fcsm]

Эту фразу

Сообщение от Waia

Yi = (Xi * i)/кор|Xi|

я понял как Yi = (Xi * i)/sqrt|Xi|
тогда решение будет

uses crt;
const n=12;
var x:array[1..n] of integer;
    y:array[1..n] of real;
    i:integer;
    s:real; 

begin
clrscr;
randomize;
for i:=1 to n do
 begin
  x[i]:=random(7)-5;
  if x[i]=0 then x[i]:=1;
 end;
s:=0;
writeln;
for i:=1 to n do
 begin
  y[i]:=(x[i]*i)/sqrt(abs(x[i]));
  if y[i]<x[2] then s:=s+y[i];
  write(x[i]:3,'==');write(y[i]:5:1);
  writeln;
 end;
writeln;
writeln('Summa: ',s:6:3);
end.

[Waia]

а как из внешнего файла???

[Sm1Le]

Прочитать значение массива из внешнего файла ?