Почему не работает ZAMENA?

[Sheffdmb2010]

uses crt;
const n=10;
type mas=array[1..n] of real;
var x,y:mas;
i:integer;
Procedure SOZD(var z:mas;k:integer);
var i:integer;
begin for i:=1 to k do
        z[i]:=-5+random(10);
end;

procedure VIVOD(z:mas;k:integer;t:string);
var i:integer;
begin writeln(t);
        for i:=1 to k do
         write(z[i]:6:3,' ');
            writeln;
end;
procedure SOZDOTR(z,x:mas;k:integer);
var i,c:integer;
begin c:=0;
        for i:=1 to k do
         begin if z[i]<0 then
                  begin c:=c+1;
                           x[c]:=z[i]
                   end;
         end;
        VIVOD(x,c,'massiv iz otricat')
END;

function min(z:mas;k:integer):real;
var i:integer;m:real;
begin m:=maxint;
        for i:=1 to k do if z[i]<m then m:=z[i];
        min:=m
end;
function max(z:mas;k:integer):real;
var i:integer;m:real;
begin m:=-maxint;
        for i:=1 to k do if z[i]>m then m:=z[i];
        max:=m
end;

function SRARP(z:mas;k:integer):real;
var i:integer;c,p:real;
begin c:=0;p:=0;
        for i:=1 to k do
         if z[i]>0 then begin c:=c+z[i];
                                    p:=p+1
                           end;
          if (c>0) and (p>0) then SRARP:=c/p
          else SRARP:=0

end;
procedure ZAMENA(z:mas;k:integer;zamen1,zamen2:real);
var i:integer;
begin for i:=1 to k do
        if z[i]=zamen1 then z[i]:=zamen2
end;

begin clrscr;randomize;
        SOZD(x,n); VIVOD(x,n,'massiv X');
        SOZDOTR(x,y,n);
         writeln('max= ',max(x,n):6:3,' ','min= ',min(x,n):6:3);
        if SRARP(x,n)<>0 then
        begin writeln('srednee arifmeti4= ',srarp(x,n):6:3);
               ZAMENA(x,n,min(x,n),SRARP(x,n));
                ZAMENA(x,n,max(x,n),SRARP(x,n));
                VIVOD(x,n,'massiv X posle zameny');
        end
        else writeln('v massive net polo)|(it 3lementov');
        readkey
end.

Всем доброго времени суток. Данная прога должна менять макс и мин в массиве на ср арифметич положит элементовю. Но почему-то она выводит исходный массив Может кто сможет помочь мне в решении этой проблемы. Буду премного благодарен!


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

остальное не смотрел, но, запомните на будущее,
если Вы изменяете какой-то параметер внутри процедуры/функции, то его нужно передавать ПО ССЫЛКЕ (дописать перед именем формального параметра ключевое слово var).
измените описание процедуры ZAMENA так:

procedure ZAMENA(var z:mas;k:integer;zamen1,zamen2:real);

p.s. саму программу (алгоритм/логику) я НЕ СМОТРЕЛ!

[Sheffdmb2010]

Спасибо все заработало!!!