Дано линейный целочисленный массив. Заменить в нем все элементы, значение которых меньше некоторог числа К на значение К. Подсчита

[PASKAL12]

Дано линейный целочисленный массив. Заменить в нем все элементы, значение которых меньше некоторого числа К на значение К. Подсчитать количество таких замен.
где не правильно?

Var a:array[1..150] of longint;
    i,n,k,y:longint;
BEGIN
REad (n);
y:=0;
for i:=1 to n do
read (a[i]);
read (k);
if (a[i])<k then write (a[k]);
y:=y+1;
Write (y);
readln;
readln;
end.

[ogamilait]

Рабочый пример:

program p1;
var
  a:array[1..150] of integer;
  i,k,n:integer;
begin
  randomize; // Подключаем генератор случайных чисел
  n:=0;
  readln(k);
  for i:=1 to 150 do    // Заполняем массив случайными данными
    a[i]:=random(300); // Диапазон даных от 0 до 300
// Проверяем каждый елемент масива на < k 
for i:=1 to 150 do
begin
  if a[i] < k then
  begin
    n:=n+1;
    a[i]:=k;
  end;
end;
writeln(n);
readln;          
end.

[ogamilait]

А это пример для наочности:

program p1;
const
  a:array[1..5] of integer=(1,2,5,3,1);
var
  b:array[1..5] of integer; // Создали новый массив в который занесен измененный данные что б вывести на екран пример, т.к. записать даные в масив "а" потом будет невозможно т.к. это константа.
  i,k,n:integer;
begin
  n:=0;
  readln(k);
// Проверяем каждый елемент масива на < k 
for i:=1 to 5 do
begin
b[i]:=a[i]; 
  if a[i] < k then
  begin
    n:=n+1;   // Подщитываем количество замен
    b[i]:=k;  // Заменяем даный елемент масива значениям k
  end;
end;
write('Количество замен:');
writeln(n); // Количество замен
writeln('Новый масив:');
for i:=1 to 5 do // Выводим наш измененный масив на екран
write(b[i]+',');    
end.