Одномерные массивы. Заменить элементы массива, меньшие заданной величины на значение этой величины

procedure TForm1.Button1Click(Sender: TObject);
const
limit=10;// максимальное число элементов массива
var
n,i,x,k:integer;
m:array of integer;
begin
n:=strtoint(edit1.Text);//Размерность массива установленная пользователем
// проверяем если пользователь установил большую или меньшую  размерность массива, то
if (n>limit) or (n<1) then n:=limit;
// устанавливаем размер массива
setlength(m,n);
 
// заполняем массив
for I := 0 to n-1 do begin
 
                    m[i]:=strtoint(inputbox('Ввод данных','введите число',''));
                     end;
 // заданная величина в edit2
 x:=strtoint(edit2.Text);
 // заменяем элементы массива
 k:=0;
 for I := 0 to n-1 do begin
                       if m[i]<x then begin inc(k);m[i]:=x; end;
 
                       end;
 // k - содержит число замен
// вывод
 edit1.Text:=inttostr(k);
end;