помогите решить задачу Опции

[zinvor]

обявить целочисленный массив если в случайно заданном массиве
встретится четное число то заменить мах если нечетоное то на мин

[amega]

о господи

var a:array [1..100] of integer;
      Min,i,max: integer;
begin
min:=0;
max:=1;
for i:=1 to 100 do a[i]:=random(100);
for i:=1 to 100 do 
 begin
  if a[i]>max then max:=a[i];
  if a[i]<min  tnen min:=a[i];
 end;
for i:=1 to 100 do 
 begin
   if a[i] mod 2 = 0 then a[i]:=max
   else a[i]:=min;
 end;
end;