В массиве все элементы, значения которых больше 5, заменить на 15 - Turbo Pascal

uses crt;
var a:array[1..20] of integer;
    n,i,k,m:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер массива от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=random(15);
  write(a[i]:3);
 end;
writeln;
k:=0;
m:=0;
writeln('Номера элементов больших 5');
for i:=1 to n do
 begin
  if a[i]>5 then
   begin
    a[i]:=15;
    write(i:3);
    k:=1;
   end
  else m:=m+1;
 end;
writeln;
if k=0 then writeln('Нет элементов больше 5');
writeln('Количество элементов, не удовлетворяющих этому условию=',m);
if k=1 then
 begin
  writeln('Измененный массив');
  for i:=1 to n do
  write(a[i]:3);
 end;
readln
end.