В одномерном массиве заменить n- ный член m-ным значением- Pascal(Паскаль)

const
  k = 10;

var
  a: array [1 .. k] of integer;
  i, n, m: integer;

begin
  writeln('Введите номер элемента');
  readln(n);
  writeln('Введите номер элемента замены');
  readln(m);
  for i := 1 to k do
  begin
    a[i] := random(10) - 5;
    write(a[i]:3);
  end;
  writeln;
  for i := 1 to k do
    if i = n then
      a[i] := a[m];
  for i := 1 to k do
    write(a[i]:3);

end.