Заменить максимальный по модулю отрицательный элемент массива нулём - Pascal ABC

const
 n=10;
var
 arr: array[1..100] of integer;
 i: integer;
begin
  for i:=1 to n do
   begin
    read(arr[i]);
     if arr[i]<0 then
      arr[i]:=0;
   end;
  for i:=1 to n do
   write(arr[i], ' ');
end.