Объявление массива у тебя верное, считывание с клавиатуры также верное. А вот при выводе ты забыл, что элементы нужно уменьшать на 95.

var E : array[1..18] of real;

for s := 1 to 18 do read(E[s]);

for s := 1 to 18 do write(E[s] - 95, ' ');