Создать в паскале одномерный массив из 30 элементов (рандомом). Найти все максимальные значения массива и удалить их. Вывести получившийся массив.

var a, b, c, i, j, n, ch:integer;

s, p:array [1 ... 10000] of integer;

begin

n:=30;

for i:=1 to n do

s[i]:=random (64000) - 32000;

writeln ('Данный массив') ;

for i:=1 to n do

write (s[i],' ') ;

a:=s[1];

for i:=1 to n do

if s[i]>a then

a:=s[i];

for i:=1 to n do

if s[i]=a then

begin

j:=j+1;

p[j]:=i;

end;

c:=j;

writeln;

writeln ('Полученный массив') ;

for i:=1 to n do

begin

ch:=0;

for j:=1 to c do

if i=p[j] then inc (ch) ;

if ch=0 then write (s[i],' ') ;

end;

end.

P. S. Надеюсь на благодарность и лучший ответ.