Паскаль [x]

Довольно непростая задача... Но нет ничего невыполнимого!

var
i,m,c:integer;
begin
for i:=1 to 15 do
m:=m+i;
for i:=0 to 2 do
begin
if i=0 then c:=m div 100;
if i=1 then c:=(m div 10)mod 10;
if i=2 then c:=m mod 10;
if c=-1 then write('w');
if c=0 then write('u');
if c=1 then write('x');
if c=2 then write('y');
if c=3 then write('z');
if c>3 then write('error');
end;
readln;
end.

Действительно задача не с легких. Но программа Онотолевича позволяет также определить и цвет этих автомашин

кто-нибудь помогите решить задачку по паскалю, никак не могу решить
3. Задана последовательность X = (x1, x2, …, x10).
Сформировать из неё одномерный массив Y, состоящий из элементов, удовлетворяющих условию | Xi | < G - X(2), где A - среднегеометрическое значение элементов массива X. Если таковых не окажется, вывести фразу «Искомых элементов нет». Полученный массив напечатать в столбик.
X = {5.31, -0.2, 1, -2.2, 3.25, -1.74, 4.9, -2.1, 0.9, 1.15}.