задача в Делфи

[Игорь Молчанов]

помогите плз написать код к задаче:
Даны натуральное число n и действительные числа: a1.....an
Вычислить min (1 < j < n) от |aj - a`|, где а` - среднее арифметическое чисел(a1.....an)

[Stilet]

Ввод чисел и вычисление ср. арифм.

For j:=1 to n do begin
 readln(a[j]);
 avg:=avg+a[j];
end;
avg:=avg/n;

Вычисление минимума:

For j:=1 to n do begin
 if min<(a[j]-avg) then min:=(a[j]-avg);
end;
Write(min);
readln;

Где avg и min - Double а массив либо целые либо вещественные.
Ферштейн, камраде?