В матрице Z[n,m], в каждой строке, нулевые элементы заменить на значение минимального элемента

program z1;
uses crt;
var Z:array [1..100,1..100] of integer;
        i,j,n,m,min,k: integer;
begin
clrscr;
write ('amount of lines= ');
readln (n);
write (' amount of columbs= ');
readln (m);
for i:=1 to n do begin
for j:=1 to m do
readln (Z[i,j]);
end;
k:=0;
    For i:=1 to n do
     Begin
      Z[i,j]:=random(11)-5;
      write(Z[i,j]:3);
      if Z[i,j]=0 then inc(k);
     End;
for i:=1 to n do
begin
min:=Z[i,1];
for j:=1 to n do
     if Z[i,j]<k then
k:=Z[i,j];
for j:=1 to m do
for Z[i,j]=min then
Z[i,j]:=min;
Z[i,1]:=k;
writeln('min=',min);
end;
for i:=1 to n do begin
for j:=1 to m do
begin write (Z[i,j], ' ');
end; writeln;
end;
readln;
end.

program z1;
uses crt;
var Z:array [1..100,1..100] of integer;
        i,j,n,m,min: integer;
begin
clrscr;
write ('amount of lines= ');
readln (n);
write (' amount of columbs= ');
readln (m);
for i:=1 to n do begin
for j:=1 to m do
readln (Z[i,j]);
end;
for i:=1 to n do begin
for j:=1 to m do
begin write (Z[i,j], ' ');
end; writeln;
end;
for i:=1 to n do
begin
min:=Z[i,1];
for j:=1 to m do
 if Z[i,j]<min then min:=Z[i,j];
for j:=1 to m do
if Z[i,j]=0 then Z[i,j]:=min;
writeln('В ',i,'-ой строке min = ',min);
end;
for i:=1 to n do begin
for j:=1 to m do
begin write (Z[i,j], ' ');
end; writeln;
end;
readln;
end.