Код:
program a;
const A_SIZE=99;
Var src,dst: Array[1..A_SIZE] Of Integer;
i,j,max :Integer;
begin
Randomize;
{* Заполняем массив *}
For i:=1 To A_SIZE Do src[i]:=1+Random(100);
{* выводим массив *}
For i:=1 To A_SIZE Do Write(src[i],' ');
Writeln;
max:=0;
{* ищем максимальный элемент *}
For i:=1 To A_SIZE Do
If src[i]>max Then max:=src[i];
Writeln('max=',max);
Readln;
j:=1; {* счетчик для массива dst *}
FOR i:=1 to A_SIZE do
if src[i]<> max then
begin
dst[j]:=src[i];
j:=j+1;
end;
{* выводим массив результата*}
FOR i:=1 to j-1 do
Write( dst[i], ' ');
Writeln;
Readln;
end.