Pascal

[Marina]

Помогите пожалуйста с задачей на Паскаль.
Дан одномерный массив удалить из массива все максимальные элементы.
я не знаю как сделать чтобы выводилa все элементы.вот что получилось:

Используется синтаксис Pascal

Program massiv;
Const n=15;
Type mas =array[1..n] of integer;
var
a:mas;
k,i,max:integer;
Procedure Print(z:mas);
var i:integer;
Begin
for i:=1 to n do
write(z[i],' ');
wtiteln;
end.
Procedure Delet(k:integer;var z:mas);
var i:integer;
Begin
for i:=k to n-1 do
z[n]:=0;
z[i]:=z[i+1];
end.
 
Begin
randomize;
fot i:=1 to n do
a[i]:=random(99);
Print(a);
Max:=A[i];
for i:=2 to n do
if max<A[i] then max:=A[i];
Delet(max,a);
Print(a);
end.
 

[Imperator]

1. Заполняете массив $a[n].$
2. Находите в нем максимальный элемент.
3. Находите в нем количество максимальных элементов $k.$
4. Создаете массив $b[n-k].$
5. Заполняете его в цикле всеми элементами массива $a[n],$ кроме максимальных.

[ewert]

И забудьте навсегда про тот нищастный Random. Т.е. хоть на какое-то время забудьте. Он очень полезен, очень. Но -- не в сей конкретной задачке. Вот когда необходимость в нём всплывёт -- тогда о нём и вспоминайте.