ргр по информатике(паскаль)

[Алёна 1993]

Здравствуйте ,помогите решить ргр по информатике)
дан одномерный массив ,состоящий из 10 элементов,найти минимальный элемент и заменить суммой арифметической всех элементов

[kuy]

var mas:array[1..10] of real := (3,3,3,1,9,9,4,6,6,6);
    i,min:integer;
    s,ss:real;
begin
 write('Array1: ');
  min:=1; s:=0;
  for i:=1 to 10 do
  begin
   write(mas[i]:0:0,' ');
   if mas[i]<mas[min] then min:=i;
   s:=s+mas[i];
  end;
  ss:=s/10;
  writeln;
  writeln('Min=', mas[min]:0:0);
  writeln('Arithmetic sum of all elements=', ss:0:0);
  mas[min]:=ss;
  write('Array2: ');
  for i:=1 to 10 do write(mas[i]:0:0,' ');
 readln;
end.

[Алёна 1993]

Сообщение от kuy

var mas:array[1..10] of real := (3,3,3,1,9,9,4,6,6,6);
    i,min:integer;
    s,ss:real;
begin
 write('Array1: ');
  min:=1; s:=0;
  for i:=1 to 10 do
  begin
   write(mas[i]:0:0,' ');
   if mas[i]<mas[min] then min:=i;
   s:=s+mas[i];
  end;
  ss:=s/10;
  writeln;
  writeln('Min=', mas[min]:0:0);
  writeln('Arithmetic sum of all elements=', ss:0:0);
  mas[min]:=ss;
  write('Array2: ');
  for i:=1 to 10 do write(mas[i]:0:0,' ');
 readln;
end.

она не работает....все элементы и сумма и минимум равны нулю

[eoln]

Может новые паскали пропускают такие объявления, но мой нет.

var mas:array[1..10] of real = (3,3,3,1,9,9,4,6,6,6);

А так программа рабочая.

Array1: 3 3 3 1 9 9 4 6 6 6 
Min=1
Arithmetic sum of all elements=5
Array2: 3 3 3 5 9 9 4 6 6 6 


------------------
(program exited with code: 0)
Press return to continue

[Алёна 1993]

Сообщение от eoln

Может новые паскали пропускают такие объявления, но мой нет.

var mas:array[1..10] of real = (3,3,3,1,9,9,4,6,6,6);

А так программа рабочая.

Array1: 3 3 3 1 9 9 4 6 6 6 
Min=1
Arithmetic sum of all elements=5
Array2: 3 3 3 5 9 9 4 6 6 6 


------------------
(program exited with code: 0)
Press return to continue

спасибо,я разобралась