Найти наименьшие элементы матрицы и записать на их место нули

const n=10;
var x:array[1..n,1..n] of integer;
    i,j,imn,jmn,mn:integer;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=10+random(90);
    write(x[i,j]:3);
    if i*j=1 then
     begin
      imn:=1;
      jmn:=1;
     end
    else if x[i,j]<x[imn,jmn] then
     begin
      imn:=i;
      jmn:=j;
     end;
   end;
  writeln;
 end;
writeln('Минимальный элемент=',x[imn,jmn],' в строке ',imn,' в столбце ',jmn);
writeln('Замена элементов строки ',imn,' и столбца ',jmn,' на 0');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (i=imn)or(j=jmn) then x[i,j]:=0;
    write(x[i,j]:3);
   end;
  writeln;
 end;
end.

var x:array[0..9,0..9]of Integer;row,col,min,clrrow,clrcol:Integer;
begin
  Randomize;min:=100;for row:=0 to 9 do begin for col:=0 to 9 do begin x[row,
  col]:=1+Random(99);Write(x[row,col]:3);if x[row,col]<min then min:=x[row,col];
  end;WriteLn;end;WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');for row:=0 to 9 do
  for col:=0 to 9 do if x[row,col]=min then begin for clrrow:=0 to 9 do x[clrrow,
  col]:=0;for clrcol:=0 to 9 do x[row,clrcol]:=0;end;for row:=0 to 9 do begin
  for col:=0 to 9 do Write(x[row,col]:3);WriteLn;end;
end.