Вычисление среднего значения массива и нахождение отклонения от него - Turbo Pascal

Формулировка задачи:

Суть задачи: нужно ввести 20 данных, посчитать среднее значение и из него вычесть каждое введенное данное(отклонение от среднего значения), у меня вычитает как я понял только одно значение, с циклом проблемы.

Program mass_1;
const n=20;
var a:array[1..n]of integer;
i:integer;
t,o,s,k:real;
begin
s:=0;
k:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do begin
s:=s+a[i];
k:=k+1;
end;
begin
t:=s/k;
write('t=',t:4);
writeln();
end;
for i:=1 to n do o:=abs(t-a[i]);
for i:=1 to n do writeln('o=',o:4);
end.

Решение задачи: «Вычисление среднего значения массива и нахождение отклонения от него»

Листинг программы

for i:=1 to n do Write(' ',t-a[i]); WriteLn;

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Задается значение переменной n равное количеству элементов в массиве a.
Задается значение переменной t равное сумме всех элементов массива a.
В цикле от 1 до n выводится значение переменной t-a[i] (отклонение от среднего значения) с пробелом в качестве разделителя.
После завершения цикла выводится строка с помощью функции WriteLn.