Пожалуйста посчитайте пожалуйста в паскале.Дан одномерный массив, удалить max элемент одномерного массива.

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var max:=a.Max;
  a:=a.Where(t->t<>max).ToArray; a.Println
end.


n= 15
-24 35 -41 14 18 -27 10 48 20 30 -42 -10 -32 -22 14
-24 35 -41 14 18 -27 10 20 30 -42 -10 -32 -22 14