Найти ошибку в проге с массивами

[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.

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

[Жека-старший]

uses crt;
const eps=0.001;
b=100;
var
mas:array[1..b] of real;
i,n,k: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);
k:=0;
for i:=1 to n do
if (mas[i]=max)or(abs(max-mas[i])>eps) then begin
                                                inc(k);
                                                mas[k]:=mas[i];
                                              end;
for i:=1 to k do
writeln('mas[',i,']= ',mas[i]);
end.

[bingooo]

Спасибо огромное!!!!

[Жека-старший]

пожалуйста)

[Google2010]

элементы, отличающиеся от его максимального элемента не более чем на Е, кроме самого максимального элемента

если так
то вот это место

if (mas[i]=max)or(abs(max-mas[i])>eps) then begin
                                                inc(k);
                                                mas[k]:=mas[i];
                                              end;

надо переписать

if (mas[i]<>max) and (abs(max-mas[i])<=eps) then begin
                                                inc(k);
                                                writeln(mas[i]);
                                              end;
if k=0 then writeln('Таких элементов нет');

а вот это

for i:=1 to k do
writeln('mas[',i,']= ',mas[i]);

вообще не надо)

[Жека-старший]

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

удалить КРОМЕ максимально элемента.

Удалить элементы отличающийся от макса НЕ БОЛЕЕ чем на Е...
т.е. разница максимума и эл-та массива должна быть больше Е.--> если больше, то оставляем в массиве...и максимум оставляем в массиве.

а послскдний цикл, для вывода оставшегося массива

[Жека-старший]

я иду от противного, т.е. делаю проверку на то, оставлять ли элемент в массиве