Помогите пожалуйста, очень безотлагательно надобно!

const n=10;

var i,s,max,min:integer;

a:array [1..n] of integer;

begin

for i:=1 to n do

begin

a[i]:=random(90)+10;

write (a[i]:3)

end;

writeln;

max:=a[1];

min:=a[1];

for i:=2 to n do

begin

if a[i]gt;max then max:=a[i];

if a[i]lt;min then min:=a[i]

end;

for i:=1 to n do

begin

if i mod 2 = 0 then a[i]:=max else a[i]:=min;

write (a[i]:3)

end

end.