паскаль задача на массив

[matrix2010]

Помогите плииз. Не знаток Паскаля =)

Поиск ближайшего среднего арифметического.
Даны натуральное число n и действительные числа x, y1, ... , yn. В последовательности y1, ... , yn найти два члена, среднее арифметическое которых ближе всего к x.

[Sazary]

uses crt;
var
n,i,j,si,sj : integer;
x,s,ts : real;
y : array[1..100] of real;
begin
clrscr;
randomize;
write('Vvedite n: '); readln(n);

for i:=1 to n do
 begin
 y[i] := random()*20-4;
 write(y[i]:7:2);
 if i mod 10 = 0 then writeln;
 end;
writeln;
writeln;
write('Vvedite x: '); readln(x);

si:=1;
sj:=2;
s := (y[1]+y[2])/2 - x;
for i:=1 to n-1 do
 for j:=i+1 to n do
  begin
  ts := abs((y[i]+y[j])/2 - x);
  if ts<s then
    begin
    si := i;
    sj := j;
    s := ts;
    end;
  end;

writeln('y[',si,']= ',y[si]:7:2,';  y[',sj,']= ',y[sj]:7:2);
writeln('sr.arif= ',(s + x):7:2);
readln;
end.