var
a:array [1..100] of integer;
i,k,z,n:integer;
begin
k:=0;
writeln ('Введите Кол-во элементов массива');
readln (n);
writeln ('Введите число z');
readln (z);
for i:=1 to n do begin
write ('a[',i,']=');readln (a[i]);
end;
writeln ('Старый массив');
for i:=1 to n do 
write (a[i],' ');
writeln;
for i:=1 to n do  
if a[i]>z then begin
a[i]:=z;
k:=k+1
end;
writeln ('Новый массив');
for i:=1 to n do 
write (a[i],' ');
writeln;
writeln ('Кол-во замен ',k);
end.