program hhh;
const n=5;
var
a:array[1..n+1] of integer;
i,k,b,x,max:integer;
BEGIN
randomize;
for i:=1 to n do begin
a[i]:=random(50)-25 ;
write(a[i]:7);
end;
writeln ; b:=5;
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
writeln('max= ',max) ;
for i:=1 to n do
if a[i]=max then a[i-1]:=b;
for i:=1 to n do
writeln(' ',a[i]);
readln;
end.