помогите исправить программу

[Аелд]

задание:заменить все члены последовательности,больше данного z,этим числом.

program Project29;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:array [1..10] of integer;
    n,i,k,z:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('vvedite chislo elementov:');
  readln(n);
  writeln('vvedite massiv:');
  begin
    for i := 1 to n do
      read(a[i]);
      readln;
  end;
  writeln('vvedite chislo:');
  readln(z);
  k:=0;
  for i :=1  to n do begin
    if a[i]>z then begin
    inc(k);
    a[i]:=z;
    end;
    write('noviy massiv:');
    writeln(a[i]:4);
  end;
  writeln('kol-vo zamen:');
  writeln(k);
  readln;
end.

при выводе выдает это
Безымянный.jpg
как это исправить

[Artsiom]

Что исправить?
Исходный массив: 1, 2, 3, 4, 5
Заменить все члены большие заданного числа, этим же заданным числом.
Полученный массив: 1, 2, 3, 3, 3
Количество замен: 2

Вроде как верно.

[Аелд]

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

Что исправить?
Исходный массив: 1, 2, 3, 4, 5
Заменить все члены большие заданного числа, этим же заданным числом.
Полученный массив: 1, 2, 3, 3, 3
Количество замен: 2

Вроде как верно.

меня напрягает многократное повторение фразы новый массив

[Artsiom]

for i :=1  to n do begin
    if a[i]>z then begin
    inc(k);
    a[i]:=z;
    end;
    write('noviy massiv:');
    writeln(a[i]:4);
  end;

write('noviy massiv:');
Так эта строка же в цикле, она и будет повторяться n-ое количество раз.

[Аелд]

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

for i :=1  to n do begin
    if a[i]>z then begin
    inc(k);
    a[i]:=z;
    end;
    write('noviy massiv:');
    writeln(a[i]:4);
  end;

write('noviy massiv:');
Так эта строка же в цикле, она и будет повторяться n-ое количество раз.

ааа, точно,спасибо