найти ошибку в массиве, паскаль

[bingooo]

Удалить из вещественного массива все элементы, отличающиеся от его максимального элемента не более чем на Е, кроме самого максимального элемента ( Е - малое число, например, 0.001).

Вот мой исходник, помогите разобраться, почему он не работает:

uses crt;
const eps=0.001;
b=100;
var
mas:array[1..b] of real;
i,n:integer;
max:real;
begin
clrscr;
write('kolichestvo elementov-');
readln(n);
writeln('massiv');
randomize;
for i:=1 to n do
begin
writeln('mas[',i,']= ');
readln(mas[i]);
end;
for i:=1 to n do
if (mas[i]>=max) or (i=1) then max:=mas[i];
writeln;
writeln('max element: ',max);
for i:=1 to n do
begin
if (abs(max-mas[i])<eps) then mas[i]:=mas[i-1];
writeln('mas[',i,']= ',mas[i]);
end;
end.

Помогите пожалуйста!!!!

[Alex2009]

Что именно не работает?И заключай код в теги "" - без кавычек что бы было удобнее его читать.

[bingooo]

Сообщение от bingooo

for i:=1 to n do
begin
if (abs(max-mas[i])<eps) then mas[i]:=mas[i-1];
writeln('mas[',i,']= ',mas[i]);
end;

Этот цикл должен убирать элеметы, отличающиеся от макс на Е, но не удалять сам макс, и вывести массив без этих элементов.

вот эта часть не работает