В массивах М(15) и В(23) заменить наименьший элемент на -3

uses crt;
type mas=array [1..23] of integer;
var m,b: mas;
 
function Imin(z: mas;n: integer): integer;
var i,im: integer;
begin
im:=1;
for i:=1 to n do
    if z[i]<z[im] then im:=i;
Imin:=im;
end;
 
procedure Zamena (n: integer; var z:mas);
begin
z[n]:=-3;
end;
 
procedure GenM (n: integer; var z:mas);
var i: integer;
begin
for i:=1 to n do
    z[i]:=random(19)-9;
end;
 
procedure PrintM(c:char; n: integer; var z:mas);
var i: integer;
begin
writeln('Массив ',c);
for i:=1 to n do
    write(z[i]:4);
writeln;
end;
 
begin
writeln('Даны массивы');
GenM (15,m);
PrintM('M',15,m);
GenM (23,b);
PrintM('B',23,b);
writeln('Массивы после замены');
Zamena (Imin(m,15),m);
PrintM('M',15,m);
Zamena (Imin(b,23),b);
PrintM('B',23,b);
end.