Дан одномерный массив найти минимальный элемент и заметить его на число k- Pascal(Паскаль)

var
a:array[1..100] of integer;
i,min,k,n:integer;
begin
readln(n);
readln(k);
for i:=1 to n do
readln(a[i]);
min:=a[1];
 for i:=1 to n do begin
  if a[i]<min then begin min:=a[i];
 end;
 for i:=1 to n do
  if a[i]=min then a[i]:=k;
for i:=1 to n do
 writeln(a[i]);
end.