Одномерный массив

[Ester]

Дан одномерный массив, нужно в нем найти три числа,среднее арифметическое которых будет ближе всего по значению к заданному числу х.

Ну сначала вводим массив,число х,это все понятно:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a:array[1..10]of integer;
i,x,n:integer;
sr,min:real;


BEGIN
writeln('n=');
readln(n);
writeln('x=');
readln(x);
for i:=1 to n do begin
a[i]:=random(10)+1;
write (a[i],'  ');
 end;
writeln;

{ TODO -oUser -cConsole Main : Insert code here }
readln;
end.

А потом я так понимаю нужно сделать цикл мудренный,дабы все тройки чисел перебрать,их среднее арифметическое сохранить в дополнительный массив.Потом найти модуль разницы числа х и каждого среднего арифметического.Из полученных значений найти минимальное и вывести искомые три числа.
Но я никак не могу это записать да и не знаю правильно ли придумала.
Помогите,пожалуйста,а то завтра сдавать

[whatever]

Мне кажется так:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a:array[1..10]of integer;
i,x,n:integer;
j,k:integer;
ii,jj,kk:integer;
sr,min:real;
E:real;

BEGIN
writeln('n=');
readln(n);
writeln('x=');
readln(x);
randomize; //это тоже не помешает
for i:=1 to n do begin
a[i]:=random(10)+1;
write (a[i],'  ');
 end;
writeln;
//sr:=(a[1]+a[2]+a[3])/3;
E:=abs(((a[1]+a[2]+a[3])/3)-x);   //E - разница между средним арифметическим и x
ii:=1;
jj:=2;
kk:=3;
for i:=1 to n do
  for j:=i+1 to n do
    for k:=j+1 to n do
      if abs(((a[i]+a[j]+a[k])/3)-x)<E then
        begin
          E:=abs(((a[i]+a[j]+a[k])/3)-x);
          ii:=i;
          jj:=j;
          kk:=k;
        end;
writeln('(',a[ii],'+',a[jj],'+',a[kk],')/3-',x,'= ',E);



{ TODO -oUser -cConsole Main : Insert code here }
readln;
end.

[Ester]

О,спасибо огромное,работает=)