Задачи Pascal c массивами

[Baby33]

Решите пожалуйсто 2 задачи. Заранее спасибо!

[capta1n]

program capta1n;
var
 z,x,m : real;
 n : 1..10;
 i : 1..21;
begin
  writeln ('Vvedite x: ');
  readln(x);
  z:=0;
  for n:=1 to 4 do
  begin
    m:=1;
    for i:=1 to 2*n+1 do m:=m*x;
    z:=z+m;
  end;
  for n:=5 to 10 do
  begin
    m:=1;
    for i:=1 to n do m:=m*x;
    z:=z+m
  end;
  writeln ('Result= ',z:0:3);
  readln
end.

[capta1n]

program capta1n;
const
 f : array [1..8] of integer = (1,2,3,4,5,6,7,8);
 d : array [1..10] of integer = (1,2,3,4,5,6,7,8,9,10);
var
 h : array [1..8] of integer;
 sum,min : integer;
 i,k : 1..10;
begin
  for i:=1 to 8 do
  begin
    sum:=0;
    for k:=5 to 10 do sum:=sum+d[k];
    h[i]:=f[i]*sum
  end;

  min:=h[1];
  k:=1;
  for i:=2 to 8 do
   if h[i]<min then
   begin
     min:=h[i];
     k:=i
   end;
   writeln ('h[',k,']= ',min,' minimal''noe');
   h[k]:=d[1];
   for i:=1 to 8 do write (h[i],'|');
   readln;

end.

[Baby33]

Спасибо огромное!!!!!!!!!