Массив, Решение задачи Опции

[BoB@N]

1)Удалить из массива наибольший элемент.
2)Если несколько элементов принемают наибольшее значение, удалить их все

Помогите plz. сделать второе условие задачи!!

Код

Program Average;
Uses crt;
var
b:array [1..10] of integer;
x,y,max,i:integer;
s:real;
begin
Clrscr;
for i:=1 to 10 do
begin
Write('B[',i,']:=');
readln(b[i]);
end;
for i:= 1 to 10 do
begin
if b[i]>max  then
max:=b[i];
if max=b[i] then
x:=i;
end;
Write('MAX= ',max,' Chislo N= ',x);
readln;
b[x]:=b[x+1];
for i:=1 to x-1 do
Writeln(b[i]:2);
for i:=x+1 to 10 do
Writeln(b[i]:2);
readkey;
end.

[Altair]

Program Average;
Uses crt;
var
b:array [1..10] of integer;
n,max,i,j:integer;
s:real;
begin
 Clrscr;
 for i:=1 to 10 do begin
  Write('B[',i,']:='); readln(b[i]);
 end;
 max:=b[1]; {<---------!!!!!!!!!}
 for i:= 2 to 10 do  if b[i]>max  then max:=b[i]; {i:=2 !!!!!!!!!!}
 Write('MAX= ',max);
 n:=10;  i:=1;
 while i<=n-1 do begin
  if b[i]=max then begin
   for j:=i to n-1 do  b[j]:=b[j+1];
   dec(n,1);
  end else inc(i,1);
 end;
 for i:=1 to n do  Writeln('B[',i,']:=',b[i]);
 readln;
end.