Заменить все члены последовательности, большие данного Z, числом Z; подсчитать количество замен

var
  a:array[1..100] of integer;
  i,n,z:Integer;
  c:integer;
begin
  Randomize;
  Writeln('n=');
  Readln(n);
   Writeln('z=');
  Readln(z);
  For i:=1 to n do begin
  a[i]:=Random(z+12);
     write(a[i]:4);
  end;
  writeln;
  c:=0;
  For i:=1 to n do
    if a[i] >z  then begin
      c:=c+1;a[i]:=z;end;
  if c<>0 then begin
  Writeln('HoBbIu MaccuB :');
  For i:=1 to n do
  write(a[i]:4);
  Writeln;
  Writeln('3AMEH :',c);
  end
  else Writeln('3AMEH HeT');
  Readln;
end.

const n=100;
type tmas=array[1..n] of integer;
 var a:tmas;z:integer; i,k:byte;
begin
 for i:=1 to n do
  a[i]:=random(100)-50;
 write('Vvedite chislo:');
 readln(z);
 
 for i:=1 to  n do
  write(a[i],' ');
  writeln;
 
   for i:=1 to  n do
   begin
    if a[i]>z then
                begin
                 a[i]:=z;
                 inc(k);
                end;
   end;
writeln;
writeln;
 for i:=1 to  n do
  write(a[i],' ');
writeln;
writeln;
  write('kol-vo zamen=',k);
readln;
end.